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監修のことば 

いわゆる“パソコンブーム”が高まり始めてから，現在までそれほどの時間 
は経っていませんが，にもかかわらず，その間各メーカーからさまざまな機能を 
もった多くのパソコンが世に送り出されました. 

その 中で， ポケ コン，ハンドへ ルドという，いわゆる 中 •小型の パソコン部 
門でも製品の開発が進められ，ひとつの分野を形成してきました. 

カシオ計算機（株）では，昨年，1万円台というそれまでの常識を破ったポヶ 
ットタイプの パソコン PB -100 を発売し，多くのユーザ層をつかみました.今 
回，この製品シリーズで，より高い機能を備えた上位機種 PB -700 を発売する 
ことになりました. 

本書は，この PB -700を有効に活用していただこうとまとめられたものです. 

パソコンのプログラム言語である BASIC は，今では大変多くの命令語を持つ 
ようになってきましたが，ユーザの側からいえば，非常に便利に使うことがで 
きる反面，いざプログラミングの段になると，少々やっかいでもあります. 

幸い， PB -700 は，パソコン入門者にとって基本となる命令語約70種によって， 
計算，画面表示， Beep 音，またオプションのカセットテープレコーダ，4色プ 
ロッタプリンタを使えますので，初心者の方がパソコンの使い方を学ぶ上では 
大変都合がよいということができます. 

もちろん，本機のもつ多くの機能が，実務面やホビーの分野で大いに活用で 
きることはいうまでもないでしよう. 

そこで本書ではまず第1章と第2章で PB — 700の基本機能と操作方法につい 
て説明した後，初心者の方々のために BASIC プログラミングの基本を第3章で 
詳しく解説しました.そして，第4章ではひとつひとつの命令語について，そ 
の機能と使い方を，サンプルプログラムを使いながらわかりやすくまとめまし 
た.そして最後に，ビジネス，グラフィックなどの分野別に，実用的なプログ 
ラムを何本かあげておきました.実際に皆さんの身の回りに応用されたらいか 
がかと思います. 

是非皆さんが，本書によってパソコンをより深く理解され，身辺で大いに活 
用されることを望んでおります. 


1983年8月 渡辺茂 








はじめに 


どこへでも手軽にカバンに入れて持ち運びでき，しかも卓上に設置するパソ 
コンと同レベルの性能をもった“使える”パソコン……これが PB — 700です. 

なぜ“使える”のか.それにはいくつか理由がありますが，まず， RAM (ラ 
ム）容量が大きく，最大で16キロバイトにすることができることをあげるべき 
でしょう. RAM 容量最大16キロバイトということは，ごく大雑把にいうと， 
文字数にして約15000字ぐらいを記憶させることができることを意味していま 
す.これ〈らいあれば，個人が普通に使用する仕事のプログラムであれば，十 
分収容することができます. 

RAM とは，ランダム•アクセス.メモリーの略で，ユーザーが自由に読み 
書きできる記憶装置のことで，ここにプログラムやデータを格納することにな 
るのです. 

さて，この RAM に，自由にデータを書きこんで，必要に応じてそのデータ 
の加工を行ない，必要なデータのみを取リ出すには， BASIC と呼ばれるプログ 
ラム言語によって，最初にこの RAM に書き込んでおかねばなりません.です 
から BASIC のプログラムは，仕事の手順を書いたもの，ということになります. 

コンピュータは，このプログラムな しには， ただの箱に過ぎないのです.そ 
こで，本書は，これから BASIC 言語を習得したいというユーザーにも十分 PB — 
700のいろいろな機能を使いこなせるような マニュアルと しての役目と ， BASIC 
の習得も容易に行なえる入門書としての役目の両方を満足できるように工夫し 
て執筆してみました. 

PB — 700はオプションのカセットインタフェイス付ミニプロッタブリンタに接続 
することで，その機能が大きく拡大されます.これによる魅力は，何といって 
もミニプロッタプリンタの活用に尽きるでしょう. 4色の美しいグラフや表な 
どをす早く作成してくれます.本書はこの利用法にも触れていますが，こうし 
たすぐれた出力結果を印字してくれるのも最初に述べた，“使える”パソコンの 
理由であります. PB — 700は使い込むほど手離せなくなり，愛着を感じさせて 
くれる機械だと思います.読者の一人でも多くの方がこうした愛着を PB —700 
に持って頂く糸口になれば，本書の役目を果たしたことになるでしょう. 


1983年8月 


著者 
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このマニュアルに書いてある:!と 


PB — 700の特長は，たくさんあります.それは，パソコンの初心者にとっ 
て，短期間に習得することが大変なくらい，いろいろな機能が盛り込まれてい 
る.ということでしょう.いろいろな機能を一度に習得することは，なかなか 
大変なことだと思います. 

原則的には，時間をかけてひとつひとつ理解し，自分のものにしていく以外 
に習得の方法はないのです.一般に，パソコンに対する習熱度は，その キーに 
触れている時間に比例すると考えられます. 

PB —700を正しく扱っていただくため，本機の概要と取り扱い上の基本的注 
意点を第1章で，また， BASIC を学ぶ前の各キーの働きや表示画面について知 
っていただくため，第2章でこれらを解説してあります. 

コンピューターの主要な機能は，いうまでもなく記憶することと計算するこ 
との 2 つに集約できます. PB — 700 にたくさんのデータを憶えさせ，いつでも 
必要に応じて必要なデータを自由にとり出したいというとき， BASIC 言語を使 
用して，どのようにプログラムを作ればよいのでしょうか？こうした疑問に 
お答えするため，第3章では，配列プログラムの作りかたを詳しく解説してあ 
ります. 

また第3章は， BASIC の初心者の方がたのために， BASIC プログラミング 
の基本について説明しました.さらにこの章では ， PB — 700の大きな表示窓を 
活かすためのグラフィックプログラミングの基本についても触れ， PB —700の 
機能を拡張できるように，別売のカセットインタフェイス付ミニプロッタプリ 
ンタの活用法についても解説しました 

すでに， BASIC をマスターされている方がたは，必ずしも第3章を読む必要 
はないでしょう.むしろ必要なのは，第4章となります.この章は， PB — 700 
のもつ多くのコマンドや関数について，その使用法をできるだけていねいに解 
説してあります.初心者の方は，この章のコマンドを最初からひとつずつ習得 
していくのは，効率的ではありません.構文上必要な BASIC の基本コマンドは 
10個ぐらいですから，それらを中心に十分理解されるよう，選びだして学習す 
ることをお推めします. 

第 5 章では， PB — 700 をすぐ実践に応用できるよう，代表的な用途のブログ 
ラム例を紹介してあります.これらを参考に，使いやすいようプログラムを手 
なおしして， PB — 700 を大いにそして有効に活用して頂きたいと思います 



PB -700 と他のカシオパソコン 

PB —700は，下の表のように， PB シリーズの中で，豊富な BASIC コマン 
ドをもった高級機に位置づけられ，表示窓も大きく，中•小規模の実務に十分 
使用できうるメモリー容量をもっています. 

また，オプションのカセットインタフェイス付ミニプロッタプリンタも大き 
な魅力で，グラフやホビーにと， PB — 700の機能を飛躍させてくれます. 


機種名 RAM 容量 特長 

メイン 64 K バイト •デュアル CPU . すぐれた計 

サブ 48 K バイト 算精度 （10 進演算)，倍々精 

度 

•豊富なグラフィック機能 


FP —1000 メイン 64 K バイト，サブ I 6 K バイト • FP — 1100 のべースマシン 

最大32 K バイト • A 4サイズのハンドへルド 

• 20桁，8行の表示パネル 
• 簡易表言語 CETL 搭載 


FP -200 


最大 I 6 K バイト 


P 巳一700 


L 一」 み:ぽ^^ 


CAB.O Q-J OEJ □□ロロ〇鼸 

CDCDCDcaCDCDCDCPCaCD ® 1 ® 1 * 111 

□ □acpcDcpcpcDcp anas 

Cp Q CD CD CD CD CD 日 CD D D O D 

□ 1. T~~J OBEUD 

PB -300 /FX 802 P 

約 2.3 K バイト 

•プリンタ付 

P 巳一200 /FX 700 P 

約 2.3 K バイト 

• 拡張メモリー付 

P 巳-100 

最大約 2.3 K バイト 

• 手軽な BASIC 入門機 



npoMSCtoiPOO. | 

: — C» OJ 919 0aiOLCi. 0.q I 

ssss 


• 20 桁， 4 行の表示パネル 
•カセットインタフェイス付 

ミニプロッタプリンタ 

• FP — 200級の強力 BASIC 




FP - II 00 


(1983年9月現在) 









































PB-700 活用法 


第1章 

基本操作 




ご使用の前に 


1-1 


この計算機は，カシオ計算機の高度な電子技術と品質管理のもとで，厳重な 
検査工程を経て，皆様のお手もとに届けられています.本機を末ながくご愛用 
いただくために，次の点にご留意のうえ，お取り扱いください. 

3] ご使用上の注意 

— 本機は，精密な電子部品で構成されていますので，絶対に分解しないで 
下さい.また，投げたり落したり等のショックを与えたり，車の中•暖 
房器具の近く等の高温の場所に放置しないで下さい.また，湿気やホコ 
リの多い所での使用や保管はさけて下さい. 

気温が低いときは，表示の応答速度が遅くなったり，点灯しなくなるこ 
とがありますが，通常の温度になると正常に戻ります. 

— オプション接続用コネクターには，本機専用のカセットインタフェイス 
付ミニプロッタプリンタ FA -10 以外の機器を接続しないで下さい. 

— 計算機のお手入れは，シンナー，ベンジンなどの揮発性液体をさけ，乾 
いた柔かい布，あるいは中性洗剤液に浸し固くしぼった布でおふき下さ 


囹 保証. アフターサービス 

— 保証は，同封の保証書の内容によりますので，よくお読みのうえ，記入 
事項を確認して，大切に保管してください. 

— 万一故障したときは，①お買い上げ店，②カシオ計算機サービスセンタ 
一のうち，ご都合のよい所へ，必ず保証書を添えて，ご持参またはご郵 
送ください.この場合は，故障内容を具体的にお知らせください. 

— 修理依頼される前に，この説明書をもう一度お読みになると共に，電源 
状態および，プログラムミス，操作ミスがないかをよくお調べください. 
— ご不明の点やご質問，お問い合わせは，最終ページ記載のカシオ計算機 
へご連絡ください. 
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システム構成と接続 1 一 2 


外部カセット レコーダ 



外部のカセット レコー ダと 
接続できる. 





■ Gaea 丨 nsiBiak 
dofeuaiaiKBn 騸 nsi aaom 

aanaBaaBnin 政 bigigib 
usiaaiaiaiiaasa cl oiniaDi 


II 




もう 1 台の FA -10 



— 



カセットインタフェース付 もう1台の FA-10 を介して， 

ミニプロッタプリンタ （ FA -10) 別の PB— 700とプログラムやデ 

一夕の受け渡しができる. 


PB — 700は，カセット インターフェイス付ミニプロッタプリンタ FA -10 を介 
して，さらに外部カセットレコーダーと接続できます.また，もう一台の FA 
—10 を介して，別の PB — 700と プロ グラムやデータの受け渡しを行なう ことが 
できます. 

PB — 700本体と FA — 10との接続は，電源スイッチ〇 FF で行ないます. 

増設 RAM OR — 4の装着や取り外し後は，電源スイッチ〇 N 後， NEW ALL 
^ の操作を行なって下さい. 
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電池の交換とリセット _ _ 1-5 





■ 電池の入れかた 

必ず電源スイッチを OFF にし， PB- 
700 本体を裏がえし，電池ボックスのフ 
夕をスライドして下さい ( CD 参照）. 

電池の交換時，プラスとマイナスを 
間違わないようご注意下さい.本体の 
スプリングの側に，電池のマイナスが 
くるようにセットします （( S 参照）. 

電池は，単 3 の乾電池 4 本です•交 
換する時は，古い電池と新しい電池を 
混ぜて使用しないで下さい.電池寿命 
を著しく短かくしてしまいます. 

長期間使用しないときは，電池を抜 
きとったまま本体を保管して下さい. 
■ 電池の交換時期 

ブザーの音が小さくなったり，表示 
をしなくなったら，電池を交換して下 
さい.なお，電池の寿命に関しまして 
は最後の「規格」をご参照下さい. 

■ PB —700の電源の構成 

PB-700 の電源は，メイン電源と， 
RAM バックアップ用のサブ電源(囹)に 
別れています.ですからメイン電源の 
交換時にも，またはサブ電源交換時に 
も，本体内のプログラムやデータが消 
失してしまうことはありません. 

メインとサブの両方を同時に外した 
場合のみ， プログラム やデータが消失 
します.この場合は，電池交換後 NEW 
ALL ^) の操作を実行して下さい. 
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1-3 


ct: db cb c±3 [±i 〇由由蟲 

tss&saasffiaa 

迄 Sffiffi® 因 ci) 


■ 電池によるメモリーの保護について 

リチウム電池のサブ電源は，メイン電池交換時のメモリーの保護のためにあ 
ります. 

メイン電池を取りはずした状態で， 4 KB なら約 
10 力月， 16 KB なら約 2 ヶ月半，サブ電池は， RAM 
をパ、ックアップします. 

■ 電池交換時の注意 

① 電池を交換するときは，必ずパワースイッチを〇 FF にして行なって下さい. 

② メイン電池とサブ電池を同時にはずさないで下さい. 

③ サブ電池は， PB — 700を使用しない場合でも，2年に1回交換する必要 
があります. ㊉ と ㊀ を間違わないよう，よく確認して下さい. 

④ 電池の寿命については，裏表紙内側の規格を参照して下さい. 

⑤ とくにサブ電源のリチウム電池は，幼児の手のと どかないところに 保管 
して下さい.万一飲み込んだ場合は，ただちに医師に相談して下さい. 

⑥ 使用済の電池は，絶対に火中に投入しないで下さい.破裂することがあ 
り危険です. 

■ オートパワーオフ機能 

電源スイッチ〇 N の状態で放置しておくと，約8分で自動的に電源〇 FF にな 
ります.これは，スイッチの切り忘れによるムダな電力消費を防ぐ自動節電機 
能で，この機能が働いた場合，キーを押すことで，再び電源 ON の状態に 
なります.なお， プログラム 実行中 （INPUT 文や PRINT 文等による停止中は 
除く）は，この機能は働きません. 

■ 電圧低下検出機能 

メイン電池が消耗してくると，表示が（徐々にではなく）ハ 。 ッと消えます. 
この時は，メイン電池を交換して下さい. 


O-Q.0 
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増設 RAM パックのセット 


1-4 


〇]電源スイッチ OFF 後 



① のように増設 RAM を斜 
めにし後部を合わせ， ② 
の前部をケース内に落す 


@押え金具をスライドさせる 



増設 RAM の押え金具を軽 
く押しつけながら③の矢 
印方向へ金具のつめがみ 
えなくなるまで押す 


PB —700 の RAM を増設しない場合は， 
4 K バイトです.別売の増設 RAM パッ 
ク〇 R- 4を追加することで，最大 RAM 
は， 16 K バイトまで拡大できます•ひと 
つの 増設 RAM パックは 4K バイトです. 

この装着法は，次の手順によります. 

① 本体の電源スイ ッ チを〇 FF にする. 

② 裏がえして RAM ボックスのフタに 
ある2個所のツメを同時に押えな 
がら，フタをはずす. 

③ 増設 RAM OR- 4 のふちを持って， 
右からの所定の位置へのせる•こ 
のとき，〇 R- 4 の本体の端子に指 
などが触れないようにご注意下さ 
い . RAM は，人体が带びている静 
電気に弱いのです ( D 参照）. 

④ 増設 RAM の押さえ金具を軽く押し 
つけながら，金具のつめがみえな 
くなるまでの矢印方向へ押す. 


® 増設 RAM パックを入れる順番 



RAM 3 RAM 2 RAM 1 


パックの 装着は必ず1, 2, 3 の 順に増設 
してください.1の位置をとばして2,3 
に装着しないでください. 


⑤ 増設 RAM パックは，囹の 1 〜 3 の 
順に装着して下さい.1の位置を 
とばして，いきなり2の位置に装 
着すると，正しく機能しません. 

⑥ 必要な数の増設 RAM パックを同様 
に装着後， RAM ボックスのフタを 
して，本体電源を ON して下さい. 

⑦ NEW ALL 逆の操作を実行しま 
す•なお，で， 
RAM 容量を確認できます. 
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CZD CX] [T] d=D □□ CZD [ZD GD (MO 
CqD C^D CZD CKD CT] CTD CyD dD C^II CZD 
[X] CX] ㈤ CZ] [T] CZ] CZ] CZD dD fn 


I SHIFT] fz | fx | | cl I V ) [ B I f 


[Ml [SPC) 






一電源 
スイッチ 


ーテンキー 


ノノトキー 


アルファベット キー 


リ々 一 、ノキ ー エノター^— 


コントラスト 

調整 __ 
ポリウム 


キヤビタル 
シフト キー 


各部の名称と働去 1-5 

•コントラスト調整ボリウム ……これをまわして，表示がもっとも見やすい濃 
度になるように調整して下さい. 

•アルフ ァベ ツ トキー ……そのまま押すと，大文字の アルファべ ットが表示 さ 
れ，キャピタルシフトキーとアルファベット キーの 同時押しで，小文字と 
なります.また，シフトキーとの同時押しによって， キーの 上の コマンド 
を表示させることができます（ワンキー コマンド）. 

例 

SYSTEM - シフ トモード 

J - ダイレクトモード 

直接キーを押して入力できない記号や文字は， CHR $ 関数(212 ページ 
参照）を用います. 

•リターンキー （ _ ). BASIC のコマンドや BASIC プログラムの入出力， 

プログラムによるデータの人出力の実行命令を行ないます. 

•エンターキー （ | ENTER | )……電卓としてマニュアル計算を行なうとき，その 
実行の命令となります. 

例 m f 2 l [71[411 ENTER 1 -► 3 

• さらに詳細な各キーの使用法は，第2章編集用キー.特殊キーの機能の項を 
参照して下さい. 

PB — 700 各部の名称 

ブ ザー FA — 10の 接続 コネクター 


グラフィックディスプレイ 


smlQmlju 

eEIESk 

0 j BBS 0 
11 jBB □一 。 j 


17 





























テストラン 


1 一 6 


c し s 

LOCATE 3 ， 1: PRINT n PB-700 TESTING" 
FOR A=31 TO 0 STEP -1 
DRAU(0 ， A) - （ 153,A) 

NEXT A 

LOCATE 5)1:PRINT "BEEP SOUND" 

FOR A 二 0 TO 3 

BEEP 1：BEEP 1：： BEEP 0 

NEXT A 

C ： し S 

FOR A-33 TO 255 
PRINT CHR$(A); 

NEXT A 

FOR _ TO 20 
NEXT A 

as 

FOR A=1 TO16 

DRAUKA 十2， 16 — FO — （A 氺 3 j 16 — A) — （A 木 15 十 

A)-(A+2,15+A) - （A 十 2,16-A) 

NEXT A 

FOR _ TO 200 
NEXT A 


PB -700 の機能を，大雑把ですが，知っていただくためのデモンストレーシヨ 
ンプログラムです.もしプログラムを正しく人力する自信がない場合には，2 
章，3章を読んでから，人力されるとよいでしよう. 


000000000000000000 
i 23 4 5678 3 012345 6フ8 

IX IX 1 I 1丄 メ ■ . X IX IX IX .1 — X 


0 0 0 
9 0 1 
12 2 
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PB - 700 活用法 


第2章 

キーの基本操作 

と画面 





ダイレクト•モードのキーの機能 2-1 


ダイレクト•モードで各キーを入力すると，そのキーの頭にある文字または 
機能が入力されます. 

fBRKl (ブレィク)実行の中止 
1 ENTER 1($-) マニュアル演算（電卓のよ 
うに）の実行 

_( リタパ プログラムの書き込みと実行 

0 ， Q 力ーソルの左右移動 


それぞれの記号 


囡〜囝 英大文字 

fSPCl (スペース〉 空白 

B 日， Q] 

( 2 , 0 , □ 

圍〜囹 置数 

□ 小数点 

田,日®,0四則記号 

表示(画面）のクリア 


Shift ] (シフトシフトモードの設定 

ICAPSK t びむキヤピタルモードの設定 


I DEL ] (デリ-卜） 丨文字削除 


[ ANSI (アンサ ひとつ前の計算結果を呼び 
出す 


■ 1行の文字数 

マニュアル計算における計算式， BASIC における1行に書き込める文字数 
とも，最大79文字までです. 

ダイレクト•モードでのキーの機能 

(表示されている文字.記号.数字は全てワンタッチで機能します） 


個 


Bsk 
gj ^jBsH 
1 BQ0 □ E 
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mmmsmcricEDCEDiMg 

i q j i w 11 e 11 r 11 t 1 1 y 11 u 11 » 11o1 Ip 1 

□ cz ] qd m m EZ ] m m m 

r ) mmmnnmmrz ] i — i rcQl 


□□ lj_j CaD lu CD uJ CD u_j i ins 1 

I RUN | [CONTI [edit] [RETUR^ |THEN| IELSeI [uSIHG| (input) [PRO 司 IPRINT] 

|_| ^ HR $(| [ SYSTEM ] | DELETE | 匚 FOR j [ gOSUb ] iGOTOl [dATa| [READ] I LIST I ^ 

|_) [LOAD] [save] iclear) iverifyi (beef^ i next] [restope] Ispc](< 


CAPS 


I CAPS I キーとの 同時押しに よ り有効となる機能です.主に アルファべ ッ トの 小文 
字を表示させるときに使います. 


シフト•モードでのキーの機能 2-2 


1 SHIFT 1 キーとの同時押しにより有効となる機能です.各キーの上に赤字で 
表示してある文字，記号な g が入力されます. 

ワンキーコマンド26種類 


S ， ■，0，0， 
dK OD , ®, (2, 
CE ， 0 
B 


それぞれの 

記号 

小数点 

文字，記号の挿入 


丨 INS 1 (ィンサ-卜） 

シフト.モードでのキーの機能 


UBJ ] 〜 ES プログラムエリアの指定 
liJ (ラインバンク）エディツトモード（丨35 
ページ参照）で，直前の 
行を表示. 

H ], [B カーソルの上下移動 


Bomei ( ホ-ム 》 カーソルを左上すみに移動 


0 S0F1E ㈤ 

EBBsk 

@®3 B 0 

SJBBmB 


0 rammQ 

囹回 

e® 回回 Q 
一 ussLeJ® 


s 

- 

2 
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編集用キー，特殊キーの機能 2-4 

(1) [ SPC 1 . ( space ) すべてのキーモードにおいて空白を出力します. 

(2) c | . (clear screen / home ) 表示をクリアして力ーソルを左上端 

に移します. 

^ HIFT ] Si は，表示をそのままで，カーソルのみ文の書 
き始めに移します. 

⑶| . ( delete / insert ) 現在カーソルのある位置の文字や記号を削 

除し，力ーソル以後の文字などをひとつずつ左に移動させます. 
(SHIFT] fD & I ] は現在カーソルのある位置を含めた右側の文 
字や記号を，ひとつずつ右側へ移動させて空白を挿入します. 

(4) (^ k 1 …… ( break ) 演算やプログラムの実行を中止します.あるいは， 

オート.パワー. オフ時の電源投入に使います . 

(5) 白， 占 …… カーソルを左右，上下に移動させます.リピート機能は左右 

の移動のみです. 

(6) IENTER 1 -( enter ) マニュアル演算を実行します. INPUT 文でキー人 

力待ちをしている場合には，^]と同様に機能します.代入 
文，コマンド， ステートメントは ， I ENTER I で実行させるこ 
とはできません. 

⑺ fMSl …… （ answer ) 直前に実行された演算および PRINT , LPRINT 文に 
よリ出力された数値の結果を記憶します. 

(例） 3.4 * 5 I ENTER 1 — 17 

5.8 * 3 - [ANSI I ENTER I — 0.4 
また， (ANSI は，プログラム実行中，プログラム停止機能’ 
. として働き， CONT 文によりプログラムを再開できます. 

(8) f^li ( return/line back ) プログラムの書き込みおよびコマンドの 

実行をします.マニュアル演算の実行はできません . I SHIFT 丄 
匚3によって， EDIT モード （135 ページ参照）において現在 
表示されている行の直前の行を表示させることができます. 

(9) [SHIFT I 掌)〜 _FTJ (S プログラムエリアナンバーを指定して，先 

頭行から実行します. 
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演算機能 


2-5 


■演算精度と 機能 

内部数値演算は，すべて仮数部12桁 （+ 指数部2桁）で行ないます.10進演算 
ですから，高精度の演算を行なうことができます. 

マニュアル 演算は， 旧 NTER 1 キーで 実行します. 

演算結果は，仮数部10桁 （+ 指数部2桁）で表示します.この際，仮数部11 
桁目を四捨五入します. 

■演算子の 働き 

へ べき乗 

+，一 加算，減算 
*， / 乗算，除算 

MOD (モッド）剰余（余り演算：扱う数値が小数部を含む場合は，小数部を切 
リ抬てて演算）.演算範囲は，次の通りです. 

① 0による除算は MA エラー 

② オーバーフローをしたとき（演算範囲を越えたとき）は OV エラー. 

③ べき乗の演算範囲 

〇八〇 — > ma エラー 
(土；〇八0 ——> 1 

0八 y - > 0 

〇八 （一 2/ ) —> MA エラー 

(— x )^{ + y ) ―> ^/が整数のみ可•他は MA エラー. 

硬 x 、 y は共に正数 

■演算の 優先順位 

演算は，次の順で実行します. 

1.カッコで囲まれた中 

2 . 関数 

3 . べき乗 (八） 

4 . 符号（+， 一） 

•5 • *，/ 

6 . MOD 
7.4-,— 

8. 関係演算子（二，>，< など） 
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_ 関係演算子の使い方 

関係演算子は， IF 文 （ 184ページ参照）においてのみ使用できます. 

二 等しい 

<>，>< 等しくない 
< 小さい 

> 大きい 

= >，> = 大きいか等しい 
二<，< = 小さいか等しい 

【例】 

A + 巳く〉 〇…… A + B の答えが 0 と等しくない. 

A$ く〉 ” 丫 ” …… A $の内容が， 「 Y 」 ではない. 

A$ = CHR$(192) + CHR$(197) + CHR$(182) 

…… A $が「タナカ」に等しい 
CHR$(67)>CHR$(N) ……キャラクタコード表で， CHR$(67) 

つまリ C が CHR$(N) より大きい 


■変数に よる演算の考え方 

変数の内容は， isna キーで確認することができます. 

【例】 A [ ENTER ) ― >0 

変数に数値を入れた場合，変数の内容は次のようになります. 

単精度：仮数部13桁目以後切り捨て （12 桁） 

(単精度とは，普通の状態の計算精度のことです）. 

半精度：仮数部6桁目以後切り捨て （5 桁） 

(半精度とは，配列変数！の指定により行ない，5桁の数値とな 
ります.配列変数においてのみ使用できます）.（数値配列変数の 
練習62 ページ 参照）. 

^ 半精度計算は，こんなに便利.技術計算などを除けば，計算は， 5 桁あれ 
ば十分という場合が少なくありません.例えば，成績，構成比 (％) などや製 
品番号，単価，数量なども， 5 桁以内で問題なければ，半精度を使用すると， 
使用メモリーが単精度の半分ですみ，より多くのデータを RAM に置くことが 
できます. 

使用するメモリーは，通常（単精度）で，1数値変数当たり8 バイ ト必要で 
すが，半精度にすると，これが 4 バイトですむのです 
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演算式の記述法 — 

【例】•書式 

I 




X + Y 
• 2 

— (X + Y)/2 

.X 2 + 2 X Y + Y 2 

— > X 八 2 + 2 本 

.- Y 2 

—-Y 八 2 

. (- Y) 2 

— (- Y) ハ 2 

.(x Y ) 2 

— > m 

• x 、 2 

— X 八（丫八 2) 


の余り 


10 . 

11. 

12 . 

13. 

14. 


秦実際の演算例 
0.5 ^ 0 

-0.5 ^ 〇 

(-0.5) ^ 0 
0.5 ~ 2 
0.5 ^ - 2 
(-0.5) 八 一2 
0.5 ^ 0.5 
(一 0.5) へ 0.5 
1へ -0.5 
(一 2) 八 -0.5 
10 MOD 6 
-10 MOD 6 
10 MOD - 6 
— 10 MOD — 6 


X MOD Y 


0.25 


0.7071067812 
MA error 
0.7071067812 
MA error 
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変数 2-6 



■ 変数の種類 

PB -700 の変数の種類は，次のようになっています. 

①数値変数——数値固定変数 （12 桁まで） 

数値登録変数 （12 桁まで） 

数値配列変数（半精度数値配列二5桁，単精度数値配列 
=12桁まで） 

※上記桁数は内部演算桁数です. 

文字固定変数 （ 7文字まで） 

文字登録変数 （16 文字まで） 

文字配列変数 （1 〜79文字まで，任意の文字数を指定でき 
る.指定しない場合は，自動的に16文字に 
設定される） 

〔例〕 配列変数で，使用できる文字数を設定する場合 

書式 DIM A $(9,9)*79 

意味 A $(0,0), A $(0,1) …… A $(9,9) の 

変数には，それぞれ最大79文字まで格納す 
ることができる. 

■ 固定変数 （ A 〜 Z 又は A $〜 Z $) 

数値や文字を記憶するメモリーは， A 〜 Z または A $〜 Z $の計26あリます. 
ひとつのプログラム中で，同一名の数値固定変数と文字固定変数の両方を同時 
に使用することはできません.もし同一変数名を使用した場合， UV エラーとな 
ります. 

〔誤った使い方〕 

10 PRINT A ; A $ — UV エラー 

■ 登録変数 

固定変数の他に英大文字および数値で構成される2文字の変数名を使うこと 
ができます. 3文字以上の変数名を定義すると，実行時に SN エラーとなります. 

【例]】 A 巳， XI, Y 1, X 2, Y 2, AZ $, AA $, 巳 1$， Z 9$ 

• 変数名は，先頭が英大文字でなければなりません. 
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.予約語 （ IF ， TO ， PI など）は変数名とすることはできません. 

• 数値登録変数 ( AB ， XI など)には，仮数部12桁+指数部2桁を格納できます. 
•文字登録変数には，最大16文字を格納できます. 

•登録変数の使用できる個数は，〔40 — (配列変数名の個数)〕です.つまり，配 
列変数名の個数と合わせて40個ということです. 40個を越した場合は ， VA 
エラーとなり，実行を中断しますから ， CLEAR (160ページ参照）もしくは 
ERASE ( 171ページ参照）で変数名を削除して下さい. 

LIST V を実行することにより，登録されている変数名を呼び出すことがで 
きます.なお，数値登録変数は8バイト，文字登録変数は17バイト分使用し 
ます. 

表示画面の知識 2-7 


■ キャラクター座標 

画面 (LCD) は，横 20 文字，たて 4 行の文字（キャラクター）が人ります.文字 
の位置の表わしかたは，次の座標に従って， LOCATE 文により行ないます. 


x 20字 



LOCATE ( x , y ) . し〇 CATE 参照、 

これにより表示できるキャラクターは，巻末キャラクター表の221種類です. 

■ グラフイツク座標 

ドット単位で表示を指定したい場合は，次の座標によります.ドットの位置 
の表わしかたは， DRAW または DRAWC 文によリ行ない，点や直線を描いたリ 
消すことができます. 
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(0，0) 


x 丨 60 ドット 


(159, 0) 


y 

32 

ドット 

(0，31) 


(159,31) 


DRAW U ， y ) . DRAW , DRAWC 参照 

また， POINT 関数により，グラフィック座標上の点が点燈しているか否か 
を調べることができます. 

POINT { x , y ) . POINT 参照、 


変数の使用バイト数 2-8 

固定変数を除くすべての変数は，プログラム実行上でデータが代入されると， 
残りの RAM 容量が減少していきます.それぞれの1変数当たりの必要なバイト 
数は，次のようになります.なお， A 〜 Z の固定変数は，自由に使用できる R 
AM エリアとは別に確保されていますから，バイト計算の必要はありません. 


登録変数 

配列変数 

変 数 

使用 バイ ト数 

変 数 

使用 バイト数 

数値変数 

8 バイト 

数値変数（半精度） 

4 バイト 

文字変数 

17 バイ ト 

数値変数（単精度） 

8 バイト 


文字変数 

2〜80バイト（卜79文字） 
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PB - 700活用法 


第3章 

BASIC プログラミング 




L 初めての BASIC 5-1 

BASIC (ベーシック）という言葉は，すでに皆さんはたびたび目や耳に触 
れられていることと思います. 

BASIC は， Beginner’s All-purpose Symbolic Instruction Code (初心者向 
多目的記号命令）の頭文字をつなげて作られた名前である，といわれています 
が，実際にはその名前の通リ， Basic な言語という解釈の方が正しいともいわ 
れています. 

どちらの解釈をとるにしても， BASIC は文字通り初心者にも習得の容易な， 
コンピュータの 入門に適した高級プログラム言語です.ちなみに，日常の言葉 
に近い用語でプログラムができる言語を，高級プログラム言語といいます. 

高級プログラム言語には， BASIC の他にも， FORTRAN , COBOL，PAS 
CAL ， PL / I など数えきれないほど多くの種類があります. BASIC も，始め 
は大型の計算機で使うために，1964年，米国の大学で生まれた言語でした. 

たくさんの言語のひとつにすぎなかった BASIC は，人間とコンピュータが 
対話しながらプログラムを作っていくことができるという便利な特徴を認めら 
れ，他の言語をさしおいていまや パソコン といえば BASIC マシンといわれる 
ほどに普及してきました. 

BASIC のよさは，何といってもこの対話形式とよばれるプログラムの作り 
方の方式にあります.いろいろ試しながらプログラムを作っていくことができ 
るのです. 

どこにでも携带できる PB — 700をお持ちのあなたならば，毎日少しずつ機械 
をいじっているうちに，必ず BASIC でプログラムを作ることができるように 
なるでしよう. 
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し キーに 触れて下さい 5-2 

PB —700 は，大量のデータを処理し，複雑な数値計算をすることのできるコ 
ンピュータですが，プログラムを使わないマニュアル計算をすることもできま 

す. 

まず PB -700 に慣れるために，ごく簡単なところからスタートしましょう. 
電源スイッチを ON にして下さい.画面には， 

Ready P 0 (プログラムエリア 0 番が指定されています） 

が表示されます. PB — 700 を電卓として使うときは，主として本体右側の数字 キ 
一を使うことになります. この 部分のキーをテンキーと呼びます.テンキーを 
普通の電卓と比べると，区]囝キーそして日キーがありません.左側のキーに 
は g キーが ありますが，これは電卓の@ キーの 代りにはなりません. 

区]囝 キーの 代りに，それぞれ®0 のキーを 使います.日 キーの 役目は， 
1 NTER 1 キーな のです. 

それでは，1+ 2をやぅてみましょう. Q ] E )[2] と入力して下さい. 

Ready P の 

1 + 2 _ 

しカーソル 


表示は，このようになりましたか.もし，まちがいがあったら，00のキ 
—を使って，一(カーソル）をその個所へ移動させ，正しく人力しなおします. 

次に ， [ENTER 1 キーを押すと,答えが次のように表示されます. 

/ ^ 

1 +2 
3 


PB — 700には，+， 一 ，*，/の四則計算以外にも，べキ乗，三角関数，逆 
三角関数，対数など数多くの関数が用意されていますから，もっと複雑な計算 
をすることもできます.複雑な式を計算する場合は，多少式を変形する必要の 
生じることもあります. 
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〔数式表現〕 
5X6 + 2 
6.5 2 

SIN 30° + COS 60° 


岭 （SIN 30 + COS 60) / TAN 45 [ENTERl 


岭 5*6/2 IENTER1 


岭 6.5^2 1 ENTER 1 


〔入力する形〕 


TAN 45° 


変数と代入 



それでは，もうひとつ計算を行なってみましょう. 

500000 X (1 +0.07) 10 ， 800000 X (1 +0.07) 10 

これは，複利計算による10年後の元利合計額を計算する式ですが，この2つ 
の計算を行なうのに最も簡単な方法はなんでしょうか.それは，1回入力した 
計算式をくり返し部分的に使用するのですから，その繰り返し部分をメモリー 
にしまっておいて，必要のつどそれを呼び出して使用することです.そこで， 

A = (1 +0.07)^10 

としておいて，前の2つの式を， 

A * 500000 1 ENTER 1 ， A * 800000 lENTERl 

とした方が，ずっと楽に計算できます. 

ここで， A には （ 1 +0.07) 1 G の値がしまっておかれたことになるのですが， 
この A を，プログラム上では，変数と呼びます. 

A という変数に，ある数値をしまっておくには，次の操作を行ないます. 

A =176 ^ (A に 176 を代入せよ） 

(左辺）（右辺） 

左辺 A に右辺176をしまうことを，代入する，といいます.ですから，この 
例でいえば， A に176を代入する，ということになります.ここで，代入する 
という命令は，=が行なっているのです. 

それでは， A に176が入ったか，確認してみます • A 1 ENTER 1 と操作して下 
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さい.これは，変数 A の中身を表示しなさい，という意味です.176が表示さ 
れましたか. 

この点は， BASIC を理解する上で大変重要ですから，是非正しく理解して 
おいて下さい. 

=は代入せよ，という命令であって，等しい（イコール）という数学的意味 
ではないのです （ IF 文を除く）.例えば， 

A = A + 1 ( A に A + I の値を代入せよ） 

は， A に A +1の値を代人せよ，という意味になります.ですから，いま A と 
いう変数に176が入っていれば，この式をコンピュータが実行すると，変数 A 
には177が代人されるのです.確認のため， A [ ENTER 1 と操作して下さい. 
表示は次のようになりましたか. 

A 

177 

一 （カーソル） 

■ ffNTERl と^1のちがい 

さて，ここでもうひとつ大切な注意があります.それは，| ENTER 1キーと 
逆キーの役割のちがいです.前述の操作で， A =176は或キーで， A の値を表 
示させるのは 1 ENTER 1 キーだった点に注意して下さい. 

つまり， IENTERI キーは,電卓のような使い方，例えば答を表示しなさい， 
というときに使用します.これを，マニュアル計算といいます. 

一方，逆（リターン）キーは， A に176を代入するというように BASIC 
プログラム上の命令を実行するときに使用します.例えば，プログラム入力を 
実行せよ，プログラムのある個所を訂正せよ， BASIC のいろいろな命令を実 
行せよ，というようなときに使用します. 
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L 変数を使う練習 5-4 

变数の名前には， A 〜 Z のようにアルファベット1文字のものや， AA や N 1 
のようにアルファベット+1文字の2文字にして使用することができます.前 
項のように数値を代入された変数は，計算式中で自由に使うことができます. 
では，練習をしましょう. 


A = 36 _ 

巳=12 逆 

と操作して下さい. A に36， B に12を代人したことになります.次に， 


A + 巳 IENTERJ 


マニュアル計算の「答を表示せよ」は 1 NIEBJ キーです. 48が表示されましたか. 
では次です. 


A — B 1 ENTER 1 岭 24 

A * B 1 ENTER 1 岭 432 

(4 + A )* LOG B IENTERI _ 99.39626599 

このように，変数を自由に使いこなせるようになれば，相当複雑な計算を行 
なうことができます.しかし，それでも手順を追って計算したいときには，や 
はり上のやり方だけでは限界があります.そこで，いよいよブログラムを作る 
ことになるのですが，変数を自由に使えるようになっていれば，ブログラムを 
作るのはそれほど難しいことではありません. 

■プログラムエリア - 

PB — 700にいろいろなプログラムを入れておいて，必要に応じて選択し 
て使用したいというとき， P 0 〜 P 9 の10個のプログラムエリアにそれぞれ 
異なるプログラムを人れておくことができます.電源 ON で ， 「Ready P 0」 

の表示が出ますが，この P の後の数字が，そのエリアを示しています•操 
作中現在どのエリアかを知りたければ， rBRKl キーを押します. 

エリアの変更は，例えば P 1のエリアへ移りたければ， 

PROG 1逆または， fSHFTl 隱 ( H 過です. 
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し ブロクラムを入力する練習 5-5 


プログラムを理解する前に，プログラムを正しく入力できなければなリませ 
ん.最初は，どこにどのキーがあるかを知るまでが大変ですが，すぐ慣れます 


アルファベットキーの配列は， jis で定められたもので，英文タイプライター 
に準じています.それでは，次の操作後，プログラムを人力して下さい. 

まず， 


晒墨 囹 — 
(S E 囫 —] 

[CLS] 

〔プログラム〕 


岭 プログラムエリアを P 0にする 
岭 P 0にあるプログラムを消す 
畤 画面をクリアする 
〔キー操作〕 


i 0 CLEAR 
20 A -- A +1 
30 LOCATE ； 7,2 


CDS ] iSHlFf ] CE 3 逆 岭 u は， 2 っ 
囹囹 OSEJffidlg のキ-の同 

囹囹 EBiciamBEn® ^ 


4 0 PRINT ^ 囡囹 [SHlFn ^ g] 參照） 

50 GOTO 20 囹囹 | SHIFT 1 gjPn g ] [0] ^ 

入力が終ったら， 1 CLS 1 1 SHIFT 1 r^n ^または， fSHIFT ) ^を押し 
て下さい.もし正しく入力されていれば，画面の中央に，1，2，3……と数 
字が高速で表示されます. 


もし ， SN error P 0— 行番号の表示が出たら，入カミスがありまし たので， 
指定された行番号を訂正（デバッグといいます）しなければなりません•その 
方法は， 


^ hftI 行番号 

です.この操作で，指定した行番号とプログラムが表示されますから，力ーソ 
ルを移動させ，訂正し，成キーを押します.ここで，次の行番号が表示され 
ますから，訂正する必要がなければ， dgg ] キーを押し，再び fSHIFTI r R crj 
通と押して下さい. 

プログラムの訂正は，エディット （ed ぼ）モードにする，ということを覚 
えておいて下さい. 
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BASIC プログラムの基本【1】 5-6 


それではプログラミングに挑戦してみましょつ. 

右の図のような正方形の面積を求めるプログラム 

を作ってみます. <- A 

プログラムを作る手順は， -- 

① 一辺 A はいくつにしますか，とたずね，人力 
してもらう. 

② 入力された数値 X 入力された数値を計算する. 

③ 計算した数値を表示する. 

④①に戻る. 


10 INPUT A . ① 

20 B = A* A . ② 

30 PRINT 巳 . ③ 

40 GOTO 10 ④ 


このプログラムを，次の手順で入力してみましょう.文字の通り，正確にキ 
一を押して下さい. 


電源 ON . Ready P 0 の表示が出ます. 

NEW »!1] . 』は，アルファベットキーの右下にある矢印のキ 


一です. 

10 [SHIFT] crn A ^ …… iMFTI と rrn は同時に押します. 
20 B = A * A (^) …… * は，テンキーの所にあります. 

30 [SHiFT] B …… [WT1 と^)は同時に押します. 

40 [SHIFU r^Ti 10 …… ISHIFTI と m は同時に押します. 

では，このプログラムを実行させてみましょう.次の手順です. 
fCLSl [SHiFT] ctd または (SHIFTl rtn と押して下さい. 
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すると，？_と表示されます.—は，力ーソルと呼びます.ここで， 




8.5 [ENTER 1 

と人力して下さい. 

すると，次の表示が出ます.もし，この表示が出なかったら， [ SHIFT ] cin 
_で，プログラムの入カミスがないか点検して下さい. 0と0，1と I は間 
違えないよう，要注意です. 


RUN 

? 8.5 . 辺の値を 8 . 5 とする 

72.25 . 面積は， 72.25 です 

?一 （力ーソル） . 辺の値をいくつにしますか？ 


この プログラムの実行を確認したら，プログラムについて考えて みましょう. 

10 INPUT A 

入力しなさい A に 


10は行番号と いい， プログラムの実行順を示します.ここでは10ずつふやして 
いますが，詳しくは後で述べます. INPUT は人力するという意味です.つまり辺の 
値をいくつにするか，？を表示させて，それに対する入力があるまで待つので 
す.入力があったら，それを数値変数にしまいなさい，という命令になります. 

20 巳 = A*A . A * A の結果を B に代入しなさい 

20行は面積計算です.10行で入力された数値をかけ合わせ，つまり正方形の 
面積を B に代入します. 

30 PRINT 巳 

表示しなさい B を 

30 行は，面積の表示です. 「表示しなさい」という 命令には， PRINT を使う 
のです. B の 内容を 表示しなさい，という 命令になります. 
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40 GOTO 10 

行きなさい 10 行へ 


GOTO は，「〜へ行け」という命令です.この後には，行くべき行の番号を 
書くのです. 

以上で，このプログラムで使用されている命令 INPUT , PRINT , GOTO 
の基本が分リました.でも，プログラムを実行してみて分る通り，？で何を人 
力したらよいか，また，計算結果がいったい「何の」計算結果なのかがよく分 
らず，大変不親切なプログラムです.そこで，少しプログラムに肉付けしてみ 
ましょう.その手順は次の通りです. 


[ BRK ] . Ready P 0の表示が出ます. 

[ SHiFT ] r^i . [ SHIFT ) ^ は同時押しです • 

これで10行のプログラムが表示されますから， S キーを押してカー 
ソルを A の所へ移動させ，次の操作で変更して下さい. 

くキー操作〉 ''A =" [ SHiFT ] [H A _ 

変更結果は次の通りです. 


10 INPUT 、、A = 


メッセージといいます.- 

、、 〃の中の文字を表示します. 


; A 

V メッセージを入れたときは，変数 
の前にセミコロン （；） が必要です. 
コロン（：）とまちがえないようにし 
て下さい. 


つぎに20行が表示されますが，変更なしなので^]を押して下さい. 
つぎに， 30 行が表示されます.これをカーソル移動して，次の変更操 
作をして下さい. 

くキー操作 〉 ''MENSEKI fSPCl "[ SHIFTlr~H B ^ 

変更結果は次の通りです. 


30 PRINT ''MENSEKI 

L 


メ ツセーン - 

'' .. の中を表示します. 


B 通 

一、、， , に続けて B を表 
示させます. 


1 - { SPC ] キーを押す. 
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3 - 6 


ここで，40行が表示されますが，この行は変更しないので，そのまま^] 
キーを押して下さい. 

それでは実行させてみましょう. 

fCLSl ^HiFT] …•… •• [SHIFT] ^ でもょぃ . 

どうでしょうか.こんどは， 「 A =?」 と聞いてくるし，計算結果も 「MENS 
EKI 72.25」と表示してくれますから，前と比べて，ずっとよいプログラムと 
なりました. 

| BASIC プログラムの基本【2】 5-7 

基本となる命令を使ったプログラムを人れながら， BASIC の基本について 
さらに学んでいきます.使うプログラムは次のもので，ある指定した数値の0 
〜200までの倍数を出力します. 

10 REM BAISUU 成 
20 A=0 逆 

30 INPUT "BAISUU UA"；N 
40 逆 

50 B 二 N 木 A 逆 

60 IF B>200 THEN 100 _ 

70 PRINT B ； 

30 INPUT " OK "; C $ 或 
90 GOTO 40 喊 
100 END _ 


入力を終了したら，キーを押しながら d _ キーを押して下さい. 
次に^)で入力したプログラムが最初から表示されますから，もし間違ってい 
たら，カーソルを移動して訂正して下さい.下のような表示が出ましたか. 


10 REM 巳 AISUU 
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以下， BASIC プログラムの基本構成を知って頂くため，このプログラムを 
解説していきますので，説明文に従って，その通り^]キーを押して下さい. 



10 REM 

• » I_ I 

! j 

行番号 一 ~ 1 

コマンド 


巳 AISUU 



ラベル 


匚 205 ページ#照] 


BASIC のプログラムは，行番号から始まり，次に コマンド （プログ 
ラム命令または命令の一部)，次いで変数または变数を使用した式で構成さ 
れます. この 1〇行では， REM 文つまり注釈命令文なので変数はなく，代 
りに ラベルと 呼ばれる注釈が ついています.この プログラムが倍数のプロ 
グラムであることを示しています.いうなれば見出しのようなものです. 
REM の後の文は実行されません.では，_キーを押して下さい. 



20 A = 0 

I_ I I_I 

T 

行番号-! —数値変数(固定変数) 


20行では，プログラム開始のとき， A という変数に0を代人しています. 
これを，変数の初期設定と呼びます. 

PB — 700では，行番号は1〜9999まで，任意につけることができますが， 
プログラムの実行は，行番号の若い順に行ないますから，それを考えて行 
番号を割りつけます. 

行番号は，10行おきにつけると見やすいプログラムとなりますし，後の 
変更もしやずぐなります. 

さて，20行は次のように表現しても同じことです. 


20 LET A = 0 1 1 93 ページ參照 1 

LET とは，代人命令ですが，省略しても差しつかえありません.では， 
キーを 押して下さい. 

〔3〕 30 INPUT〗 : 'BAISUU WA ；；, N , 

[ 187 ページ参照1 

行番号」入力命令 メッセージ文 L 変数 
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3 7 


INPUT は人力命令で，キーからの数字や文字などの入力がない限リ， 
次の 行へ実行が移りません.人力された数字や文字を，メッセージ文の 次 
の 変数に代入し， 次の 行へ実行が移ります. 

メッセージ文はなくてもかまいませんが，入れた場合には何を入力する 
べきかを表示させることができます. 

INPUT は，「；」+変数で，メッセージ文の後に「？」を表示します. 
変数の前の「；」を「，」にすると，「？」は表示されなくなります. 

では，^]と押して下さい. 

40 A = A + 1 

変数 A は，このプログラムの加算回数を計算するカウンターです.最初 
にこの40行を実行すると，20行の初期設定で， A には0が代入されていま 
すから， 「 A に A +1 を代入する」というこの命令は， A =0+1 つまり 
A には1が代入されます.さて， A が1の状態で，また40行を実行すると， 
次には， A=l + 1 つまり A には2が代人されます. 

このように40行の実行回数に応じて， A には1が加算されていくのです. 


4〇行の実行 1 回目 

A 

= 0+1 

( A は1 )' 


2 回目 

A 

=1 +1 

( A は2 ) 

A に，前の A 
の値に1をた 

3 回目 

A 

= 2+1 

( A は 3) 

した値を代入 
する. 


では， 

〔5〕 


』キーを押して下さい. 

50 B = N * A 


40行と同じ代人文です. N * A の値を数値変数 B に代人する，という命 
令です.この行の最初の実行のとき，40行の実行によって， A には1が代 
入されています.また， N には30行の INPUT の実行によって任意の数値 
が代入されていますから， 


B =17 X 1 


岭 B には丨7が代入される 
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次の繰り返しの50行の実行によって， 
れるので， 2 回目 B = 17 X 2 
3 回目 B =17 X 3 


A には，2回目は2が代入さ 

数値変数日には， N の倍数 
> が， つぎつぎと代入される. 


ここまでは，理解できましたか.ある行の繰り返しの実行，とここでい 
っているのは，このプログラムが，40行と50行の計算を何回も繰り返しや 
らせるようになっているからです.その繰り返しの命令は，もう少し後で 
説明します.では，代人文が理解できましたら，次の BASIC 命令を学び 


ましょう.キーを押して下さい. 


〔6〕 


60 IF 巳 >20の THEN 100 


条件式 


=判定文 


分岐先行番号 


もし （ IF )， B の値が 200 よりも大きければ （ B >200), 100 行へとべ，と 
いう条件文です.つまり，このプログラムでは，50行を繰り返し実行して 
いくと， B の値が12回目で204となり， B > 200 の式が成立し，100行へ 
ジャンプ（分岐）します.もし， B の値が 200 に等しいか，小さければ， 
ジャンプせず，次の行番号へ実行が移ります. 


IF 式 THEN 行番号 [184ページ參照」 

I_I 

I この式が成立するならば，指定の行番号へジャンプする 


この命令を利用したのです.では，_キーを押して下さい. 


〔7〕 


70 PRINT 巳； 




-画面表示命令 


-数値変数 


ージ參 st ] 


PRINT は，「表示しなさい」という命令です.このプログラムでいえば， 
数値変数 B の内容を，画面に表示しなさい，ということになります.最後 
の セミコロンは， 画面に連続して表示させたいときに使用します.これに 
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より，行をかえずに次の表示を続けて出力します. 
では， g キーを押して下さい. 


〔8〕 


80 INPUT 


入力命令 


〇 K 〃 ； C $ 

_ I I _ I 

t | 

L 文字変数 
メ ッセージ 


匚187ページ参照1 


この行では，30行ですでに学んだ INPUT 文が再び使われています.こ 
こでは文字によるキー人力をしてもらうようになっています. 80行が実行 
されると，ディスプレイには 「OK ?」のメッセージ文が表示されます. 
これによリ，キー入力された文字 （ 7字以内）を，文字変数 C $ に取り込 
みます.もしここで数値変数 C を使用したのなら，キー入力は数値しか受 


け付けす，このとき文字や(^)キーが入力されると SN エラーとなってし 
まいます. 

この行の役割は， INPUT 文がキー入力があるまで待っている，という 
機能を利用して，70行の計算結果の表示をいったん止めてしまうことです. 
もしこの行がないと，プログラムの繰り返しによる多くの表示結果が一度 
に出てしまいます. 


この行で，30行で入力した値の倍数を表示します.では，_キーを押 
して下さい. 


〔9〕 


90 GOTO 40 

ジャンフ命令— —とび先行番号 

無条件に40行へ行け，という命令です.では， 


[ 182ページ参照1 

』キーを押して下さい. 


〔10〕 


100 END 


[170ページ參照| 


END は，プログラムを終了せよ，という命令です. END は，プログラム 
上欠かせない命令なのです.というのは，このあとにさらにサブルーチン 
のプログラムが続くことが多いからなのです.この場合， END がないと， 
続けてこのサブルーチンを実行してしまうのです.サブルーチンについて 
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は，179ページを参照して下さい. 

END は，次のように60行に人れることもできます.そうすれば100行 
は不要になります.では_キーを押して下さい. 


60 IF B >200 THEN END 

ここで， プロ グラムの流れをみてみま しよう. 


繰り返し. 
ループと呼 

ぶ. 
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このようになります.ここで，90行は無条件に40行へ戻りますから，こ 
のプログラムは，40行〜90行を繰り返し実行することになります.そして 
このループの途中に人れた，60行の条件文によって，このループから脱出 
し，100行へとぶのです.上記した流れ図を，フローチャートと呼びます. 
では，_キーを押して下さい. 


練 習 問 題 


■ 数値を次つぎと入力していき，それを加算していくフログラムを作って 
下さい. 

I ヒント 1 

① 変数をクリアして， 0にしておく. 

② 加算する値がいくつか聞く. 

③ その数を，前の数にたす. 

④ 結果を表示する. 

[S] 

10 CLEAR 

20 INPUT 、 'DATA=";A 
30 巳 = 巳 + A 
40 PRINT 'TOTAL ="; B 
50 GOTO 20 

I 解説 1 10 行の CLEAR はすべての数値変数と文字変数をクリアする命令 
です （B = 0 として，積算用の変数 B のメモリーに〇を代入するだ 
けでもかまいません）. 50行の GOTO 命令の行き先行番号を10と 
すると，そのつど，変数が0になり，積算ができなくなります. 
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[_ プログラムの実行 5-8 

さて，以上で入力したプログラムのチェックが終りました.説明の通りにキ 
一操作していただきましたでしようか. BASIC プログラムが，どのように作 
られているのか，だいたいのところを理解していただいたでしようか.では， 
_キーです. 

それでは，このプログラムを実行させてみましよう. 

まず，キー， ( SCD キーを押して下さい.次に，プログラム実行命令 
囡〇®^]もしくは， fSHIFTlf^n (^11 を押して下さい.また， P0 のェリア 
にプログラムを入れたのなら， gHlFT] でも RUN と同じ働きをします. 

プログラムが正しく入力されていれば，次の表示が出ます. 

厂 ''' 

RUN 

巳 AISUU WA ? 


倍数をいくつにするかを聞いてきます.次のキー操作をして下さい. 

17 1 ENTER 1 

すると，次の表示が出ます. 

' 

RUN 

巳 AISUU WA ?17 
17 OK ? 

17の最小の倍数が，17であることを表示しています.また，確認はよいかを 
聞いてきます.それでは次の倍数を表示させましょう._キーを押して下さい. 


r 

RUN 

へ 


巳 AISUU WA ?17 



17 OK ? 



34 OK ?— 

_ J 
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さらに次の倍数は，_キーを押します.以下この繰り返しで，187まで表 
示します.さらに，ぱキーを押すと，突然次の倍数表示が出なくなってしま 
いました.これは，プログラムの60行の条件が成立し，倍数が200を越えたた 
め実行が終了し，停止しているからなのです.再びこのプログラムを実行させ 
るには，もう一度 ( SHIFT ] ^ 』の操作が必要です. 

〔プログラムの変更〕 

ここで使用したプログラムに，さらに 
いろいろ 手を加えて，各種の命令の使い 
方の理解を深めてみましょう. 

まず，300までの倍数を出すようにし 
てみましょう.それには，60行の B >200 
を B >300に変更すればよいのです. 

gHlFT ] あ 60 _ 

で，60行が出ます. カーソルを 移動し， 

200を300に変更して^)キーを押し， 

[ MS キーを押し，或です. 

次に，70行の PRINT 文を変えて，表 
示の変化を調べてみましょう. 

70行は ， 「PRINT B ;」 となっていま 
す. B のあとの セミコロンは， 表示を続けるという役割でした.では， このセ 
ミ コロンを とってみましょう. 

[MEJ\ 70 

で，7〇行を表示させ，カーソルを移動し，；の所で [ BID キーを押します . v 
が消えましたか._キーの後 [ ME キーを押し実行させて下さい. run の 
方法は，もうおわかりと思います. 

表不は，80行のメッセージ文「0 K ?」が，倍数の下に表示されます.つまリ 
V がなくなったので，次の表示を続けず，行がえして表示したことが分ります. 


ブログラムの実行順 

BAISUU WA?17 
17 OK? 

34 OK? 

51 OK? 

68 OK? 

85 OK? 

102 OK? 

119 OK? 

136 OK? 

153 OK? 

170 OK? 

187 OK? 

Ready P0 
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| 表示画面の作 D 方 5~9 

それでは，人力してある倍数計算プログラムの70行を，さらにいろいろ変え 
て，画面表示のコントロール方法を学んでみましょう. 

[BRKl ShPT rW\ 70 g 

で，70行の次の表示が出ましたか. 

70 PRINT 巳 1 195 ページ參照 1 

では，プログラムの繰り返し回数のカウンター用変数 A も同時に表示させて 
みましょう. 

〔 1 〕 7 の PRINT A ; 巳； 

変更の方法は，力ーソルを B の位置に移動させ，1 SHIFT ] です • 

これによリ， B の前に2字分スペースが空きますから，ここで A [SHpj cp 
rnni shift j 「七を入力します.次に^]キーを忘れないように.それでは， 
RUN させて表示を確認して下さい. 

こんどは，次のように変更してみます. 

〔 2 〕 70 PRINT A，B 

変更の方法は，まず [ BRK 1 後 EDIT モードで70行を表示させ，力ーソル 
移動で訂正し，或の手順で上記と同様です.訂正がすんだら RUN させて下 
さい. 「 A ， B 」 によって，表示が行改えとな 1 )ました. 

さらに，次のように変更してみましょう. (BRK1 キーを押して下さい. 

〔 3 〕 70 PRINT A ； TAB (8) : B : 

このように変更するには，上記と同様 EDIT モードにし力ーソルを移動させ， 
訂正し，_キーです.次に， RUN して下さい. 

TAB( 8) という命令が出てきました.これは， （） 中に指定した桁までス 
ペースを 入れるという関数です • A と B の変数の内容表示の間に スペースが あ 
いたのを確認して下さい. 
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3 - 9 

さて，ここで困った問題が生じることにお気きでしょうか.それは，数値 
変数 B の表示で3桁の数字になると，下のように左ぞろえとなり，最後が1字 
分ずれてしまうのです. 

51 0K? \ 

68 〇 K? 

85 〇 K? 

102 0K? _ ノ 

この場合は倍数の表示ですから，これでもよいかもしれませんが，例えば数 
量や価格を表示させる場合には，右ぞろえが見やすいでしょう. 

そのためには， USING 関数を使用して，次のように書きかえます. 

〔 4 〕 70 PRINT A; TA 巳 （ 8); USING' 、 ###"; 巳； 

USING の使用法は229ページを参照して下さい.では， RUN して，表示を確 
認して下さい. 

画面表示の制御を行なう命令は，他に LOCATE 命令があります.では，こ 
れを使用して，70行を同様に書きかえてみましょう. 

〔 5 〕 70 C し S :し OCATE 5, 2 : PRINT A ； B ; 

op ^ 命令 命令 

入力後， g キーを忘れないようにして下さい.表示は次の通りですか. 


このように，丨 つの 
行に 2 つ以上の命令 
. を「:」によって接続さ 
せる行を，マルチス 
テートメントといい 

ます . 



117 〇 K? 


画面中央部に表示されます. 

LOCATE 命令の使い方は，次のようになります. 

し〇 CATE X ，丫 

X はよこの文字数， Y はたての行数の位置を書きます.詳しくは，194 ページを 
参照して下さい. 
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L 指定した回数繰り返す 5-10 

プログラムでは，ある決められた回数を，繰り返しある仕事（ルーチンとい 
います）を実行させる必要が頻繁に生じます. 

例えば，たくさんのデータの中からある必要なデータのみを探し出す，ある 
いは，その多くのデータを数の多い順に並びかえるなどがそれに当たります. 

こうした仕事を，コンピュータは，すべてのデータに ついて 選択基準に合う 
か照合したり，となり合うデータを比べて大小を調べ，となり合うデータを人 
れかえて忠実に実行します.こんなとき，これから学ぶ命令が不可欠となるの 
です. 

それでは，簡単なところからスタートしましょう.プログラムを入力する前 
に，まず，どのプログラムエリアが空いているか調べましょう. 

[ SHIFT ] 逆 I 154 ページ参照 1 

この操作で，次の表示が現れます. 

P 23456789 

2 ① 56 Bytes : ANG し E の 

Ready PO 注） ram パックなしの標準実装で，プログラムを 

書き込まない状態のとき， 2864Bytes を表示する. 


顰のある所には，すでにプログラムが入っています.この表示の例では， P 0 
と P 1 は使用中です. 2056 Bytes というのは，残りのメモリー容量を表わして 
います.この場合， 2056バイトをまだ自由に使用できるということです•残 
りのメモリー数は，増設 RAM パックの数によって変動します. 

ANGLE は，角度単位の設定 （156 ページ参照）で，〇〜2の値です.普通の 
計算をするときは，この数値が何であっても影響は受けません.電源 ON した 
ときには，いつも0 (DEGREE) に設定されています. 

Ready P 0 は，現在のプログラムエリアを示し， P 0 にプログラムの書き込 
み，または実行が可能であることを示しています.では，空いているエリアに 
PROG 数字で移行し，次のプログラムを入力して下さい. 
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10 c し s 

20 FOR A =1 TO 20 
30 PRINT CHR $(135)； 

40 NEXT A 

正しく入力できましたか.確認のため， 

[ SHIFT ] 岭 EDIT モードにする. 

と操作して下さい.間違いがなければ^]キーで次の行番号を表示させます. 
Ready P 0 が出ましたら，プログラムを RUN させて下さい. 

このプロ グラムは，■を連続して20回表示させる ものです. 


〔1〕 10 CLS 


CLS は，画面の消去を行い，カーソルを左上の隅に移す命令で，いったん画 
面をきれいにしてから表示させたいときに使用します. 


〔2〕 


— 

20 FOR A =1 T 〇 2© 

30 PRINT CHR $(135)； 


40 NEXT A 


この20行と40行は，これでひとつの命令を構成しています.つまり， 


FOR A =1 TO 2© 


変数 A に丨から 20 までの数値を順番に 
代入する. 


NEXT A 


AS 20 であれば， FOR に戻る. 


これを，20〜40仃の FOR 〜 NEXT ループと呼びます.実行手順を追ってみ 
ましょろ. 

① A に1が代入される. 
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② 30行を実行する. 

③ 40行の NEXT A で FOR に戻る. 

④ 20行へ戻り， A に2を代入する. A <20 なので，次の NEXT まで実行し， 
再び FOR へ戻れ，と命令する. 

⑤ 30行を実行する. 

⑥ 40行で FOR へ戻る. 

⑦ 20行へ戻り， A に3を代入する. A <20 なので，次の NEXT までを実行 
し，戻れ，と命令する. 

こうして， A にが代入されると， AS 20 が成立しないので，次の HEXT まで 
実行したら，もう戻らずに，次の命令へ実行を移す.この場合は，あとに 
プログラムがないので ， Ready P 数字となる. 

さて，30行の20回繰り返される命令を見てみましょう. 

〔 3〕30 PRINT CHR$(135 )； L 坚二 ■ 麵」 

表示しなさい CHR$(I35) を t 続けて 

CHR $(135) は，キャラクターダラーの135番という意味で，使うことので 
きる文字やキー（キャラクター）に，すべて〇〜255までの番号が付けられて 
います.（巻末表307ページ參照). 

「■」の表示は，直接にキー入力できませんから， CHR $ ( )で指定して使 
うのです.このように，とくにキー入力できないキャラクターには，欠かせな 
い命令ですから， （） の中に32〜254までの数字を入れて，その使い方に慣れ 
て下さい. 「 CHR $(」 は ， fSHlFTl 一 c r ^ i です. 

練 習 問 題 


■ FOR 〜 NEXT を使用して，Iから任意に指定した数までの整数を，連続 
して表示させるプログラムを作って下さい. 

I ヒント I 
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FOR A =1 TO N 
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NEXT A 

S] 

10 C し S 

20 PRINT CHR $(182); CHR $(189); 

CHR $(222)； 

30 INPUT N 

40 FOR A =1 TO N 

50 PRINT A ； 

60 NEXT A 

70 END 

1 解説 120 行で，任意の数を入力してもらうため， INPUT の前にメッセ 
ージ文として「カズ？」の表示をさせるようにしました.これに 
より入力された数値を，数値変数 N に取り込んで， 40 行で FOR 
の繰り返し数としました. N には例えば 15 などの数値が入力され 
ますから，その回数だけ 50 行を実行します. 

50 行は， FOR 〜 NEXT で使用される変数を，そのまま表示させ 
たのです.これによって， FOR 〜 NEXT 命令で使用される変数 
に，ループの繰り返しごとに1が加えられていくのが分ります. 
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し 金額合計プロクラムを作る 5-11 

FOR 〜 NEXT 命令は，慣れないとなかなか理解しにくいものです.そこで， 
もうひとつプログラムを作って，それに慣れることにしたいと思います. 

まず，次のプログラムを入力するプログラムエリアを決めましょう.ここで 
は仮に P 4 とします.入力手順は，もう改めて記す必要のないものと思います. 
では， NEW _後，次のプログラムを入力して下さい. 

このプログラムは，最初に決めた件数を人力すると，あとは単価，数量を次 
つぎと件数分繰り返し入力していくだけで，小計と合計を表示してくれるもの 
です. 


10 CLEAR 

20 INPUT "KENSUU n ；N 
30 FOR A=1 TO N 
40 INPUT ,, TANKA ,, ；B 
50 INPUT "SUURY0";C 
60 PRINT "SHOUKEI"; 巳木 C 
70 D 二 D 十 B 木 C 
30 NEXT A 

90 PRINT l, TOTAL M ； TAB(10) ； CHR$(92) ； D 
100 END 

このプログラムは，各行番号で，次のように仕事を処理しています. 

1 の すべての変数をクリアつまり0を代入します. 

2の処理する件数を入力します.（件数を N に入れる） 

FOR 〜 NEXT ループで，件数 （ N ) 回，単価，数量を表示させ，入力 

1 し，小計額を表示し，合計額に加算する計算を行ないます. 

80 

90 金額合計の表示 

100 終了 

ここで，30行から80行の FOR 〜 NEXT ループを，詳しく考えてみましょう. 
FOR から NEXT までのループの中でやらせたい仕事は， 
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① 単価を入力して，変数 B に人れる. 

② 数量を入力して，変数 C に入れる. 

③ 単価 X 数量の計算を行ない，小計を表示させる. 

④ 合計額に，小計額を加算し，新しい合計額とする. 

. ことなります. 

90 行のプログラムは，表示の見やすさに配慮してあります. 

90 PRINT'、TOTA し"； TAB (10); CHR $ (92) ; D 

TOTAL を表示させ， 113 個スペースをとり，¥を表示させ，合計額を表示する. 

それでは次に， FOR 〜 NEXT ループの中の仕事は，ひとかたまりのまとま 
つた仕事なので，プログラム上これを分離独立させ，その仕事のところへプロ 
グラムが進んだら，そのブロックへ飛んで仕事をこなし，終了したら元の所へ 
戻る，というサブルーチンの考え方をとりいれて，プログラムを作りなおして 
みることにしましょう.同時に表示のみやすさにも工夫をしてみます. 

このサブルーチンの考え方は，右の図の 
ように考えます.このために使用する命令 
は， G 0 SU 巳〜 RETURN で、す. 

前のプログラムの 40 〜 70 行を，右図に従 
つて 500 〜 540 行に変更して 40 行に GOSUB 
500 を入れます. 

GOSUB 500 

500 行のサブルーチンへ行きなさい. 

RETURN 

このサブルーチンを呼び出した G0SUB の次の命令へ戻りなさい. 

これによって， 30 〜 80 行は，次のように変更します. 


メインルーチン サブルーチン 


10 



20 


| 

30 ' 


500 

510 

40 GOSU 巳 一 

50 


520 

60 


530 

70 


540 


RETURN 

80 、 


1 





















3 の FOR A =1 TO N 
40 GOSUB 500 
50 NEXT A 

それでは，これらをまとめてひとつのプログラムにしてみます. 


10 CLEAR 

20 INPUT "KENSU"；N 
30 FOR A=1 TO N 

40 GOSUB 500 FOR/NEXT の ループ. N 回繰り返す . 

50 NEXT A 

60 PRINT "TOTAL" ； TRB(10) ； CHR$C92)；D 
70 END 

500 PRINT A; TAB(5); "TANKfV:; : INPUT B — 

510 PRINT A ； TABC5) ； "SUURYO"；：INPUT C サブルーチン 
520 PRINT ^SHOKEI" ； B*C：BEEP 1 
530 D=D 十 B 木 C 
540 RETURN 


このプログラムは，前のプログラムを EDIT モードで手直しして入力するよ 
りも，変更が多いので，新しいプログラムエリアに入れてみて下さい.そして， 
前のプログラムと，実行上の相違を確認して下さい. 
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これから，「指定した回数繰り返す」の項の頭で述べたデータをたくさんた 
くわえる方法について学んでいきますが，その前に文字のデータの扱いに慣れ 
ておく必要がありますから，少し文字変数の練習をしておきましょう. 

変数には大きく分けて，次の2つがあることは，もうご存知ですね. 

数値のみを代入することができる . 数値変数 （ A ， B ， C ， A 1 など） 

文字や記号を代入することができる…… 文字変数 ( A $， B $， Al $ など） 

プログラム中での数値変数と文字変数のちがいは，何でしょうか.文字変数 

でいう「文字」とは， A ， B，C . のアルファベットやカナや記号，そして 

〇〜 9 までの数字も含まれます.そうすると，数値と文字のちがいがますます 
あやふやになりそうです. 

でも，この2つの決定的なちがいは，数値は大きさを表わしている，という 
ことなのです.ですから，文字蛮数で扱われた場合の数値は，記号と同じで， 
大きさを表わすものではないのです. 

では，このちがいを具体的に調べてみます. 

〔数値の場合〕 〔文字の場合〕 

4 + 31 ENTER 1岭7 、'4" +、'3" IENTER 1 岭43 

ここで，文字を扱う場合，必ず、' "で囲むのは， INPUT や PRINT 命令の 
メッセージ文などと同様です.この例でいえば，4という文字と3という文字 
をつなげて表示する，という意味になるのです.文字変数として扱っている数 
字を，数値として扱いたいというときには， VAL 関数を使用して数値に変換す 
ることが可能です （ 214ページ参照）. 

次項で述べる配列変数では，こうした文字変数をたくさん使用します.文字 
変数を配列変数で使用した場合， 79 文字までをひとつの変数に入れることがで 
きます （ 28 ページ参照 ）. 


57 










文字配列の宣言は，次のようにします. 


3-12 


右の図のように，使用する最大文 
字数によって，メモリーを節約でき， 
それに応じて，人れることのできる 
件数が増加します. 

30と指定した場合の，必要メモリ 
は， 


DIM F$ (50) * 30 

tl 


使用する文字変数 


I 変数当たりの最大文字数 




データの個数 


10 20 30 40 50 60 70 79 


50 X (30 + 1) =1550 ( バイト） 

格納文字数 +I 
となります . 

配列プログラムでは，このように少しでも多くのデータを入力できるように 
するために，1変数当たりの使用メモリー数をできるだけ少なくするように工 
夫します. 

例えば，数値変数の場合は，このために半精度数値配列と単精度数値配列を 
選択でき，半精度数値配列であれば，単精度数値配列の半分のメモリーですみ 
ます.これについては次の項で詳し〈お話しましょう. 



0 丨2 3 4 5 6 7 
$$$$$$$$ 
FFFFFFFF 
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L ディメンションつて何だろ〇 5-15 


プログラムに携わる人たちの間で， 「ディメンションを とる」と話しているの 
を聞いたことはあリませんか.これは「入れ物を用意する」という意味です. 
その入れ物というのは，右下の②のような整理棚を思い浮べて下さい. 

それぞれの棚には，データ（保存しておきたい数値や文字列）を入れること 
ができます. 

ひとつの変数名のもとに，この例では〇〜4の5つの棚が用意されることに 
なリます.この整理棚の使用法は，例えば文字変数 A $の〇番には 「 TANI 」， 

A $ の1番には 「 SUZUKI 」， 2番には 「 YAMAMOTO 」. というように， 

いろいろな名前をひとつの変数の標識のもとに管理することになりますから， 
必要な名前をこの管理番号によって呼び出すことができるのです. 

もし，こうしたひとつの変数名に番号を振って，データを蓄えることをしな 
いと，①のようにひとつの変数にひとつのデータを人れる，ということになり， 
変数名がいくつあっても足りないばかりでなく，プログラムを作る上でも，ど 
のデータがどの変数に入っているか管理できず，非効率きわまりないものにな 
ってしまいます. 


①彳変数に彳つのデータを入れる ②1変数名のもとに，たくさんのデー 
考え方一一非効率 夕を入れる考え方-次元配列 



( 番地 ) 


う9 





































③一次元配列をいくつか並べた住所録の場合. 


A $ 

/ 巳 S 

/ c $ 




丁 

//名前 

/"""住所 

/ TE し NO 




//名前 

/住所 

/ TEL N0- 



" T ： 



//名前 

//住所 

/ TE し NO 




名前 

/ 住所 

/ TE し NO- 






//名前 

//住所 

TE し N0- 


(番地） 

④ひとつの変数名で，たて•よこを表わす二次元配列の考え方. 

0 I 2 (番地） 


A J: こ） 


■ 一次元配列 

そこで，データをたくさん入れるには②の方法をとるのですが，これを一次 
元配列と呼びます.つまり，ひとつの変数名のもとに，一方向に番号を振って， 
データを配列させる，という意味です.図では〇〜4までですが，実際には， 
全部で〇番地から255番地の256段の棚をつくることができます. 

こうしたデータの配列を使用するときには，例えば， A $ の変数名のもとに 
整理棚が最大いくつ必要なのか，メモリーを予約しておく必要があるのです. 
この予約をしておかないと，コンピュータは，データが入ってきたときに，ど 



番 
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この スペース（メモリー） にその データを 人れておくべきか分らず， uv エラー と 
なってしまいます.要するに， A $ という名の整理棚を何段作って用意してお 
くべきか分らない，ということになるのです. 

A$ という名の整理棚の長さ，容積を， A$ のディメンション（寸法，大き 
さ）といいます. 

■ 二次元配列 

さて，それでは，整理棚の形を少し変えてみましょう. 

一次元配列では，③のように例えば A $ の配列棚には名前， B $ の配列棚に 
は住所， C $ の配列棚には電話番号を人れると決めれば，名簿や住所録にする 
ことができます.プログラム上は，名前を入力すると，その名前の番地の巳$ 
と C $ を呼んでくればよいことになります. 

こうした整理棚では各棚の管理の方法として，よことたてに番地をつけ，よ 
こ何番，たて何番と指定すれば，それがどの位置の棚であるかをいうことがで 
きるようになります.つまり，よこ番地とたて番地の組み合わせで棚位置を指 
定する方法です. 

この考え方を図で表わすと，④のようになり，この表わし方を 二次元配列と 
呼ぶのです.ひとつの変数名で，たて，よこという二方向に番号を振って，デ 
一夕を配列させる，という意味です. 

この場合，たては〇番地から255番地まで，よこも〇番地から255番地まで 
とることができます.しかし，たて•よこともに255番地までとったりするこ 
とはできません.それは，メモリー容量に限度があるからです. 

二次元配列でのメモリーの使用量は， 

たて番地数 X よこ番地数 X1 番地当たりの必要メモリ ー 数 

です.このため文字配列に入力できる文字数を，あらかじめ設定しない場合に 
は，1変数あたり16文字となりますから， 

256 X 256 X 17 = 1114112 バイト 


となり，完全にメモリーオーバーとなってしまいます. 
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数値配列変数の練習 
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数値配列変数とは，前項で考えた配列という整理棚に，数値を入れる場合の 
変数の使い方を指しています.ひとつの変数の名で，たくさんのデータを整理 
する変数を，配列変数といいます.前項の整理棚のたとえでいえば， A $， B $ 
C $ などが配列のための変数 —— 配列変数に当たります. 

ところで，数値を管理するための配列変数と文字列を管理するための配列変 
数の使い方は，基本的にはまったく同じですが，プログラムの中では，データ 
の扱い方や表わし方がいろいろ異なるのです • 

そこで，ここではまず数値配列変数のプログラム作りから学んでいきます. 
①のような一次元配列の整理棚をもう一度考えましょう.この整理棚に名前を 
つけましょう.この名前は，アルファベット1文字，つまり26個の固定変数で 
なければなりません.ここでは，仮に A とします. 

そうすると，この場合， A という配列変数の整理棚は，〇〜6までの7つの 


棚で構成されていることになります. 
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■ U4 

そこで，コンピュータにあらかじめ、、 A という名の，〇〜6の棚をもった整理 
棚を作りなさい〃つまり， A を配列変数として使用し，その大きさ（ディメン 
ション）は〇〜6である，ということを宣言しておかなくてはならないのです. 
その方法を，次に示します. 

f 数値配列名 

DIM A (6) ^ 

右のディメンション L - 一次元配列で，9 〜 6の7個の配列です. 

をとる，という命令 配列であることを示すために （） で囲む. 

このように指定すると，数値配列変数 A のす ベての 配列が0になります. 
それでは，上の操作を行なって下さい.もしここで， DD エラーが出た場合 
は，一度 CLEAR 』 してから，上の操作を行なって下さい. 

次に，①の各棚にいろいろなデータを入れてみましょう. 

A (5) =- 13 或 

1 -配列変数 A の 5 番地 

A (3) =65 逆 

次に， A(5) と A(3) の棚に，前記操作でデータを入れることができたかど 
うか確認してみましょう. 

A (5) I ENTER 1 岭 一 13 と表示 

A (3) [ENTER] 岭 65 と表示 

以上までの操作を，プログラムに書くと，次のようになります. 

5 C し S 
10 CLEAR 
20 DIM A(6) 

30 INPUT ' 、 A(5) = ";A(5) 

40 INPUT 、 'A(3) ="; A(3) 

50 PRINT A(5) ; A(3) 

60 END 
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■ 配列変数で使用する数値の知識 


以上で，数値のデータを配列の整理棚に格納する方法は分りました.では， 
配列変数に入れることのできる数値は，どんな制約を受けるのでしようか•ま 
ず大切なことは，ひとつの配列変数 
には，12桁の整数部と2桁の指数部 
を入れることができるということで 
す. 

ところが，画面表示をすると，11 
桁目を四捨五入した10桁表示となっ 
てしまうことに注意して下さい.計 
算は12桁で，表示は10桁までです. 

こうした数値配列变数で使用される数値を，単精度と呼びます.これに対し 
て，有効な数字が12桁も必要ないし，表示も10桁を必要としない，5桁あれば 
十分である，ということも少なからずあるでしよう.こんなときに，大変便利 
な数値の格納法がありますので，是非使いこなして下さい.数値を最大5桁で 
配列変数に格納する 半 精度と呼ぶ数値の処理法です.これによれば，1データ 

桁数の表示 - 

PB — 700は，数値は100桁まで表わすことができます.また，プログラムの力 
によって，もっと多くの桁表示も不可能ではありません.ただし，1〇桁を超え 
ると，画面に表示されたときに，指数表示となります. 

例えば， 

12345678909 [ENTER 1 岭 1.234567891 E 10 

整 i 部 f 指数部 

L 四捨五入します. 

指数表示とは， xio 10 の表現のことです.上の例では， 

1.1234567891 X 10 10 

を意味します . 


⑤数値配列で使う数値 


/ ン 


2 桁 

(12 桁） 


/ 



12桁以降は，切り捨てになる. 
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⑧半精度と単精度のちがいは，棚の幅の大きさです. 

半精度 単精度 



1 つの整理棚 
( 変数 ) に付， 

8 バイト使用 
します . 


数値は， 

整数部 12 桁 
指数部 2 桁 
を格納できま 
す . 


当たりの必要なメモリーが，単精度の半分 （4 バイト）ですむのです. 

単精度と半精度のちがいをまとめると，⑥のようになります. 

単精度のディメンションの表わし方は，すでに述べたように変数が A の場合， 

A 〇) . 単精度数値配列の宣言 

ですが，半精度のディメンションの表わし方は，次のようにします. 

A ! 〇) . 半精度数値配列の宣言 

変数の後に！が必要です. 


■ 二次元配列における半精度と単精度の考え方 

考え方は，前記一元配列におけるのとまったく同様です.整理棚に例えると， 
⑦のようになります. 

宣言のしかたは，数値配列変数 A の場合， 

DIM A ! ( i , j ) …… 半精度 DIM A ( i , j ) …… 単精度 
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j 数値 配列プログラ 5 ング 入門 5-15 

下の表のようなたて.よこ集計表のプログラムを作って みましょう. 

たて，よこの小計を計算し，最後に合計を得るものとします.たて，よこ各 
4個，計16個のデータとしましょう. 



A-1 

A-2 

A-3 

A-4 

小計 

0 

25 

17 

3 

67 


1 

19 

20 

11 

58 


2 

32 

15 

26 

55 


3 

36 

28 

29 

40 


小計 







データは数値ですから，まず，一次元数値配列でプログラムを作りましょう. 
変数名は A でやってみることにします.プログラムを作る手順は，次のように 
しましよう.こうした手順を書いたものを，フロー チャートといいます 


2 

3 

4 

5 

6 

7 
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ここで， フロー チャートの1〜4番の各列のデータ入カプログラムを考えて 
みましょう.まず最初の一列は， 


10 CI-EAR 
20 DIM A 1(15) 

30 FOR 1=0 TO 3 
40 INPUT A! (I) 

50 NEXT I 


FOR - NEXT ノレープ 


このプログラムで， A— 1 列の 0 〜 3 番にはデータを入れていくことができま 
すが，さて A — 2列はどうしたらよいでしょうか.ここでは別の変数を使用せ 
ず， A のみを配列で人力していく方法を考えます. 


小計 


A!(0) 

A ! ⑷ 

A!(8) 

A!(12) 

B!(0) 

A!(1) 

A ! ⑸ 

A ! ⑼ 

A!(13) 

B!(1) 

A ! ⑵ 

A!(6) 

A!(10) 

A!(14) 

B!(2) 

AK3) 

A ! ⑺ 

A!(11) 

A!(15) 

B!(3) 

C!(0) 

0)(1) 

C!(2) 

C ! ⑶ 

D 


このように Al(0) 〜 A!(15) の棚に順番にデータを入れていき，最後に各集 
計を行なうには，どん，な考え方のプログラムであればよいか，これをプログラ 
ムのアルゴリズムと呼びます.ここで，いっそのこと A !(0) 〜 A !(15) を，ひ 
とつの 長い棚のように扱い，4個おきのデータをたしていけば，よこの小計を 
得ることができる点に着目した方法を次に示します. 


10 

2 ( 2 ) 

30 

40 

50 

60 

70 

80 

90 


REM NYURYOKU 
CLEAR 


DIM A ! (15) 


FOR J = 0 TO 3 

FOR I =0 TO 3 - 

PRINT 、 'A — "； J + 1I ;'、）"； たてに 

データ 

INPUT A ! (J*4 + I ) を入力 


A — I 列から 
順に列をずら 
してデータを 
入力 


NEXT I 


NEXT J 
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これで，データの入カプログラムができました. r A _ 列番号（たて番号）？」 
の表示で，順にデータ人力していきます. 70行の配列変数 A !() に，データを 
格納していくのです. 

次は，よこの小計用のプログラムを作リましょう. 


95 

100 

110 

120 

130 

140 

150 

160 


DIM B !(3) 


FOR 1=0 TO 3 

FOR J =0 TO 3 

B !( I ) = 巳！ （ I )+ A !( J *4+ I ) 

NEXT J 


たてに 4 回 
ずらして， 

よこの計小計を計算， 
算と表示表示 


PRINT ''巳一 "； I ; TAB (5); B !( I ) 


INPUT '、〇 K "; F $ 
NEXT I 


配列変数 B !(0) 〜 B !(3) に， 120 行でデータを格納していき，140行でそれを 
表示させます.150行は， B !(0) 〜 B !(3) の小計の表示が，スクロールされ 
てしまうのを防ぐため，表示を止め， IENTERI キー人力で次の表示がでる±う 
にしてあります. 

次は，たての小計を行なうプログラムです. 

170 DIM C !(3) 

180 FOR J =0 TO 3 
190 FOR 1=0 TO 3 
200 C !( J ) = C !( J ) + A !( J *4+ I ) 

210 NEXT I 

220 PRINT '、 C 一"； J ; TA 巳 (5); C !( J ) 

230 INPUT '、 〇 K " ; F $ 

240 NEXT J 


たての計 
算と表示 


よこに4回 
ずらして， 
小計を計算， 
表示 


よこ小計の方法とほとんど同じで，ダブルの FOR 〜 NEXT ループによって 
います.異なるのは， I と J の変化（ループ制御変数といいます）の順番だけ 
です. 

それでは，合計を計算してみましょう. 
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250 REM GOUKEI 
260 FOR I =0 TO 3 
270 D = D+C 1(1) 

280 NEXT I 

290 PRINT、、TOTA し"； D 

300 END 

二次元配列による方法 

一次元配列を使用すると，いまみてきたようにデータを格納するべき各棚の 
扱いが複雑で，わかりにく くなります.そこで，すでに学んだ二次元配列によ 
って，プログラムを作ってみましょう • こうした，たて•よこのデータを扱う 
には，二次元配列は大変便利なのです. 

n 初期設定 


10 ERASE A! …… 変数 A の配列をクリアする . 

20 CLS …… 画面をクリアする . 

30 N=4 …… たて，またはよこの数 

40 DIM f)\ (NjN) ……ディメンションの 設定 ( 半精度数値配列設定 ) 


30行の N = 4は，この数字を変えれば，たて•よこの数を変更できます. 

B 1 データの 入力^ 


50 FOR 1=0 TO N-1 
60 FOR J 二 0 TO N-1 I 

70 PRINT I; " 一 11 ; J) 1 

30 INPUT (V: (I j J) 

90 NEXT J 
100 NEXT I 

たて計 


よこ計 


28 

39 

12 

54 

133 

53 

29 

55 

30 

167 

28 

17 

80 

53 

178 

60 

31 

70 

44 

205 

169 

116 

217 

181 
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50 行と 60 行の FOR 〜 NEXT 文の N — 1は，データ入力では合計欄が必要な 
いので， 一1 したのです.データ人力の順番は，前の一次元配列とは変えて， 
こんどは横へ順番に人力していくことにしました. 

jj よこの小計： 

110 FOR 1=0 TO N -1 
120 FOR J =0 TO N -1 
130 A !( I ， N )= A !( I ， N ) 十 A !( I . J ) I 
140 NEXT J 
150 NEXT I 

よこの小計を 4 回 （N = 4のとき）行ないます. I と J に〇〜 N — 1の数を入 
れて ， A ! () の値を確認してみて下さい. 

P の 小計 


160 FOR J =0 TO N 

170 FOR 1=0 TO N -1 

180 A ! ( N ， J ) 二 A ! ( N ， J )+ A ! (h J ) I 

190 NEXT I 

200 NEXT J 


J 













こここ 

7) 小言1 














J 













ここ 

の小言 

十 













たての小計を 4 回行ないます. I と J に〇 〜 N — 1の数を入れて ， A ! () 
の値を確認して下さい. 

H よこの小計の表示1 

210 FOR 1=0 TO N -1 
220 PRINT A !( I ， N ); 

230 NEXT I 
240 STOP 


J 













ここ C 

7) 表矛 














いったんストップをかけ，よこの各小計を確認した後，1 SHIFT 1 cw ~) で， 
次の行へ実行が移ります. 
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5~15 


6 たて小計の表示 


250 FOR J =0 TO N 
260 PRINT Ai ( N . J )； 
270 NEXT J 
280 END 


J 













ここ 

:の 表: 

示 













たて小計の表示を行ないます.このときよこ小計の合計を同時に行ないます 
から，全部の合計を同時に表示することになります. 


さて，たて•よこ集計プログラムでむずかしいのは， FOR 〜 NEXT ループ 
を二重に使うことです.しかしこれも， FOR 〜 NEXT 命令を何度か自分で試 
してみて慣れるに従い，大変便利でプログラムの簡素化に役立つものであるこ 
とが分かってくるでしょう. FOR 〜 NEXT ループで大切なことは，制御変数 
に自分で0から順番に数値を入れていってみることです. 


7 プログラムの実5 

RUN すると，「0 — 0 ?一」と聞いてきます.データ^]キーで「0— 1? 
一」 と次の横の欄へ人れる値を聞いてきます.全部のデータの入力を終了する 
と，しばらくしてよこの小計と ， 「STOP P 0 — 240」の表示が出てストップ 
します. 

次に， [SHlFTl ^ _で，たての小計と合計を表示して終了します.表 

示の形は，自分で手を入れていろいろ試して下さい. 




■制御変数とは 例えば，よこの小計でいえば，制御変数の変化は， 

110 FOR fTI =0 TO N-1 

^ __ 

120 FOR [J] = 0 TO N — 1 



130 A! (m,N) 二 A!(m,N) + A!(|T7J]) 


I ， J が， FOR 〜 NEXT ループの 
制御変数です.それぞれ 0 〜 3 に 
変化します. 


I =0, J = 0, N = 4 のときでは， 
A!(0 ， 4) = A!(0 ， 4) + A!(0 ， 0) 
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し 文字配列変数の練習 5-16 

文字を人れることのできる文字配列変数においても，数値配列変数のときと 
同様に，一次元配列と二次元配列を使用することができます.数値配列変数で 
は，さらに半精度と単精度を使用することができ，メモリーの有効使用に役立 
ちますが，文字配列変数においても同じことがいえます. 

5文字ぐらいでよい配列変数に，6文字以上も入れることのできる スペース 
を取ってもムダなことですし，反対に20文字人れたいのに，その スペースが 10 
文字分しか取っていなければ，データ人力のとき困ってしまいます.つまリ， 
文字配列では，格納できる文字を1〜79まで指定できるという特長をうまく使 
いこなすことが大切になリます. 

ひとつの文字配列変数当たりの文字数の指定は，次のように行ないます. 

DIM A$(i)*n (1 ^ n <79) 

※ * n を省略すると16文字に設定されます 


■ DIM 文でのエラー 

DIM 文で指定した以上の文字を人力しようとすると， 

ST—error 

が出ます.このときは，限度内の文字数を再入力して下さい. 

また， DD-e 「「 o 「 が出ることもあります.これは，以前に（スイッチを切つ 
ても関係なしに），これから指定しようとする&列と同じ変数名で，指定が 
行なわれていた場合に生じます.例えば以前に， 

DIM A $(20) 或 

をどこかで実行していた場合，新たに， 

DIM A $(30) 或 

を実行しようとすると生じるのです.この エラーが 出たときは， ERASE 命 
令で A $ を消去して下さい.例えば， 

ERASE A$ ㉝ 

ただし， ERASE や CLEAR を実行すると，データが消えてしまいますから 
注意が必要です. 
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16 文字のスペース 


8文字のスペース 



DIM A $ (3) DIM B $(2)*8 

t t 文字数の指定 l - f- i 

文字配列変数」 し 0 〜 3 までの 4 段 （] 〜 79 文空キで） 

* N を省略したため16文字に設定される. _ 

それでは，さっそく配列変数に文字を人れてみることにしましよう.次の操 
作を行なって下さい. 

CLEAR 或 

DIM H $(30) *5 _ 

H $(1 ) = 、'A 巳 CD " 』 

H $ ⑵ =、' EF " 』 

以上を実行すると，右の図のように，文字が配列変数に格納されます. 
これを呼び出すには，次の操作を行 
ないます. 


H$(1) 1 ENTER I 岭 ABCD 
H$(2) 1ENTERI 岭 EF 

30 
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3-16 


■文字を配列させるプログラム 

練 習 問 題 


厂 問題 1 最大10文字を収容できる，配列数が3つの配列プログラムを作 
りなさい.なお，文字はキャラクタ•コードで入力し，途中で入力をやめたい 
ときは，0を入力， 3つの配列に入力終了すると，すべてのキャラクタを表示 
させるものとします. 

ヒント I 初期設定は.最大 10 文字，配列数が 3 ですから， 

10 CLEAR 
20 DIM N$(2)*10 

次に，データの人力用ルーチンです.配列数が 3 なので， 3 回の FOR 〜 NEXT 
ループを 作り ループの 中で，文字を1〇個読むための GOTO 文のもうひとつの ル 
ープを回せばよいことになります.その中に INPUT 文を置き，キャラクタ. 
コードを読むのです. 

データ入カプログラムの基本構成は，次のようになります. 


① I 変数当たりの文字数のカウンターを0とする …… B = 0 

② キャラクタ•コードを入力 …… INPUT N 

③ 文字数のカウンターに丨をプラス …… B = 巳+1 

④ カウンターが10を越えたら，次の配列変数へ入力 …… IF B =10 THEN - 

⑤ 配列変数に，コード No . を文字に変換して格納 …… N $( I )= N $( I )+ CHR $( N ) 

⑥②へ戻る …… GOTO 〜 


次は，結果の表示のルーチンです. N $ (0 ) 〜 N $ ( 2 ) を続けて表示するだ 
けです. 

100 FOR 1 = 0 TO 2 

110 PRINT N$(1); 、匕"； . I に〇 ~ 2 が順次入る . 

120 NEXT I 
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3 - 16 


厂 答 1 

i 0 CLEAR : CLS 
20 Did N $(2)木10 
30 FOR 1=0 TO 2： B =0 

40 PRINT n N $( n ； I；")"；：INPUT M No. n ；N 
45 IF N >255 THEN 40 
50 IF N =0 THEN 90 

60 B = B +1 ：IF B =10 THEN BEEP : GOTO 90 
70 N $( I )= N $( I )+ CHR $( N ) 

80 GOTO 40 
90 NEXT I 
100 FOR 1=0 TO 2 
110 PRINT N $(1 )； M ”； 

120 NEXT I 
130 END 


RUN させると，「 N $(0) N 0.?—」と表示されます.このときキ 

ャラクタ •コードを 入れていくのです.文節で区切るときは，0を入れます. 
これで，「 N $(1)」の中の数字が0〜2へ変化していきます. 

では，次のコードを入れていって下さい.サテ，何が出るでしようか. 

207 _ 194 _ 192』222 _ 165過190 178資 

186』0或207或175 _ 193』0 _ 

183 ㉝ 174』221 _ 183 _ 174逆221逆0 g 
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L 文字配列と数舰列の組み合; b せ 5- n 

実際にたて•よこの表を作って，データの処理を行なうとき，文字配列と数 
値配列は，組み合わせて使用されることがほとんどです.このとき，文字の部 
分と数値の部分がひとつのデータ群として同時に取り扱わねばなりません. 

例えば，氏名と得点，品名と個数や金額などを考えてみると，文字と数値を 
いっしょ に呼び出せなくてはなりません.こうしたプログラムの方法を学んで 
みましょう. 

わかりやすい例題として，成績処理プログラムを考えてみます.まず，氏名 
が必要です.次に，氏名に対応した国語，数学，英語の三教科の合計得点を記 
憶しておく二次元数値配列が必要です. 

これから，次のような模式図を想定してみましょう. 



=英語 

= 3科目の合計 


入力したいデータは，次のものとします. 


氏 

名 

国 

数 

英 

得点計 

A, 

Y 

50 

60 

75 

ァ 

K , 

K 

83 

71 

70 

ィ 

S , 

0 

60 

63 

40 

勺 

平均点 

ェ 

才 

力 

キ 
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10 前の入—! 10 ERAS E D $ jD ! ：cls 

20 DIM D $(45〉*10， D ! (45,3) 

30 1=0 

40 INPUT " N^riE "; D $(1) 

50 IF D $( I )=" END " THEN 80 
60 1 = 1 十 1 :IF 1 = 45 THEN 80 
70 GOTO 40 

名前を D $(0) 〜 D $ (44) とし，平均点というタイトルを D $ (45) としまし 
た. 「 END 」 の入力でループからの脱出です.もういうまでもないと思いますが， 
40行〜70行が，名前を入力するループです. 

数値の^3 : 

二次元配列によって数値データを入力していくルーチンです.まず， 90 行で 
名前 （ D $ ( Y )) を表示させ，120行でその名前の国語（ X が〇のとき）の得点 
を ， D ! (0, 0) に取り込みます.その後，130行でその名前の得点を D ! (0, 
3) に加算します . D ! ( Y , 3) は小計欄ですが，もっとよこの科目を増や 
したいときには，3を，その数に1をたした数に変えればよいのです. 

D ! ( Y , X )の Y ， X は， FOR 〜 NEXT ループの回数によって決定されます. 
r"FOR Y=0 TO I 一 1 
>FOR X = 0 TO 2 
INPUT D! ( 丫， X) 

NEXT X <~ 

L-NEXT Y — 

基本的には，このようなしくみになっています. 

80 FOR Y =0 TO I - 1 
90 PRINT D $ (丫） 

100 FOR X =0 TO 2 
110 PRINT X 
120 INPUT " "； D ! (丫， X ) 

130 D !( Y ，3)= D ! く 丫， 3) 十 D !( V ， X ) 

140 NEXT X 
150 NEXT Y 


― > x 得点表 


国 (0) 

数 (1) 

英 (2) 

計 
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10 目平§^算二 

氏名の入力回数（カウンターの I ) がいくつであっても ， D ! (45， X )を課 
目の平均値欄としましたので， ここに， 課目ごとの平均値を入れていくように 
しましょう.まず，180行で，課目ごとの得点合計を D ! (45， X )に代入し， 
200行で，平均値を D に代入し，210行で， D の小数点以下2桁目を切上げ，さ 
らに，小数点以下1桁目以後を切捨てて，整数化し，その値を再び D !(45 ，X ) 
に代入し ます. つまり，平均点の小数点以下1桁目が9であるときのみ切上げ， 
他は切捨ての処理を しています. INT は整数化の関数で，小数点以下切捨てと 
なります. 

これは，成績処理という仕事の特質のためで，他の目的であれば，210行を 
変えることになります. 

160 FOR X =0 TO 3 

170 FOR Y =0 TQ I - 1 

180 D !(45， X )= D !(45， X ) 十 D ! (丫， X ) 

190 NEXT Y 

200 D = D !(45 ,X )/1 

210 D !(45 5 X ) = 1 NTCD *10+0.5)/10 

220 NEXT X 

H 氏— 

各氏名ごとの合計得点を表示して行きます. 260行で，_キーが押されたら， 
次の氏名へ移るようにしました.氏名に対応した合計得点は，ループ制御変数 
Y で処理してあります.ですから， 

氏名 . D $( Y ) 

合計得点…… D !( Y ，3) 

が，いつも一致していることになるのです. 

230 FOR Y =0 TO I - 1 
240 PRINT D $(； Y )； " T = M ; 

250 PRINT D ! く丫， 3) 

260 K $= INKEY $： IF K $= 1 ' l, THEN 260 
270 NEXT Y 
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5 I 平均点の表示 丨 

課目別平均点の表示は ， D ! (45，， X ) で， X が〇〜3のデータを順次表示す 
ればよいことになります. 

280 FOR X =0 TO 3 
290 PRINT ,, AUE = n ； 

300 PRINT D ! く 45 ，X ) 

310 K $= INKEY$：IF K $="" THEN 310 
320 NEXT X 
330 END 


では， RUN して，データを入力してみて下さい•実行結果の画面表示は，次 
のようになります. 


A , 丫 T 二185 

K , K T = 224 キーを押していくと，順次氏名別得点計が表示されます. 

S , 0 T = 163 ! 

AVE = 64.3 ―国語(⑦)の平均点^] 

AVE 二 64.7 ——数字 （1) の平均点^! 

AVE = 61.7 ——英語 (2) の平均点 

AVE 二190.7 ——氏名別得点計の平均点^] 
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しカナ文字を使 5 


5~18 


キャラクタ. コード 表の通り，カナ文字や一部の漢字まで使用す ることがで 
きます.カナでいろいろなメ ッ セージなどを表示すれば， グンと 分りやすくな 
りますから，少々手間はかかりますが面倒がらずに大いに使うようにしましょ 
う.カナ文字のみをアレンジした コード 表を次に示します. 

カナ文字のコード表 


ァ 

力 

サ 

夕 

ナ 

ハ 

~7 

177 

182 

187 

192 

197 

202 

207 

ィ 

キ 

シ 

チ 

二 

ヒ 

$ 

178 

183 

188 

193 

198 

203 

208 

ゥ 

ク 

ス 

ッ 

ヌ 

フ 

ム 

179 

184 

189 

194 

199 

204 

209 

ェ 

ヶ 

セ 

テ 

ネ 

へ 

メ 

180 

185 

190 

195 

200 

205 

210 

才 


ソ 

卜 

ノ 

ホ 

モ 

181 

186 

191 

196 

201 

206 

211 

ャ 

ラ 

7 

ァ 

ヤ 

〇 

'' 

212 

215 

220 

167 

172 

161 

222 



ン 

ィ 

3 . 

厂 

0 


216 

221 

168 

173 

162 

223 

ュ 

ノレ 

ヲ 

ゥ 

3 

J 


213 

217 

166 

169 

174 

163 



レ 


X 

ツ 

\ 



218 


170 

175 

164 


3 

□ 


才 


• 


214 

219 


171 


165 



上のコード表をみると，「ア」のコードは 177 です.従って，「ア」と書く 
のは， CHR $ 関数を使い， （） でコード番号を囲んで， 


PRINT CHR $ (177) 逆 [j 12ページ參照 | 
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でよいのです.続けて「カズ」と書くには， 

PRINT CHR $ (182) ; CHR $(189) ； CHR $(222) 逆 

ですし， 「ペン」 と書くには， 

PRINT CHR $(205) : CHR $(223) : CHR $(221 ) ^ 

です. 「 C HR $(」 のワンキー人力を利用するのは，いうまでもありません•ち 
ょっと分かりにくぃコードを次にあげておきますので，キー入力して確認して 
下さい. 


〈コード番号〉 

く意味〉 

く表示〉 

〈コード番号〉 

く意味〉 〈表示〉 

160 

空白 


165 

中点 • 

161 

読点 

0 

176 

長音 

162 

カギ カツコ 

厂 

222 

濁点 ” 

163 

カギカツコ 

J 

223 

半濁点 ° 

164 

句点 

> 



これらの記号も，すべて- 

一文字の扱いとなります. 

また，ワ行の「ヲ」は， 

166であり， 

167から175までは「チョ 

ット」などと^ 

、うときの小さいカナ文 


字になっています. 

■ 長い文章を表示させるためのプログラミング法 

長い文章を入れたいとき， CHR $( ) を続けていくと，やたらプログラムが 
長くなってしまいます.そこで， DATA 文にコードを書いて， READ 命令で読 
み込むようにするのが簡単です （ 200 ページ参照）•例えば，「ウリアゲダ カシュ 
ウケイヒョウ」と書くのは，次のプログラムの40行の GOTO 命令によるル 
ープ で， 1字ずつ DATA 文から変数 A に読み込み，30行でそれを表示させま 
す. 0を読み込むと，終了します. 

10 READ ^ 

20 IF F\=0 THEN END 
30 PRINT CHR 主⑻； 

40 GOTO10 
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50 DPi'lfi 1733 216.177： 185^222 3 192^222.1 
82 3 1 G 0；188 3 173； [73, 185, 178； 1 G 0；203 
j U 179 
G 0 Df^Tiq 0 

それでは，もうひとつカナ文字を使用した事例をあげて おきます. 

10 CLS 

20 PRINT CHRi(203) ； CHRi (221) ； CHRSC210 
)) 匚 HRi( 1 フ 8)i : INPUT " ", m 

30 PRINT 匚 HR 生（ 183) j 匚 HR 主 （ 1 フ 3); 匚 HR 劣 （ 21G 
>^CHRiC17^)sC ： HR^U7!9)5:lNPLlT 11 u , Q 
40 PRINT CHRiC192);CHR^C221) ； CHRiC182 
: INPUT M ..，U 

50 PRINT こ HR 生 U83)j 匚 HR 主 （ 221) ぶ CHR 主 U82 
)5 匚 HR 生（ 222) 5 匚 HR 主（ 184) j 匚 HR 生 （ 32)S 
ら 0 PRINT CHR ま C202)3‘Q 太 Uj 匚 HR 主 （ 241)sCHR 立 
^32 ); 匚 HR 主 (135)5 匚 HR 生 （ 222 )；匚 HR 主 （ 183)5 
フ 0 IF INKEYi^- ,M， THEN 70 
80 END 


実行例 厂 - 

ヒンメイ PB -300 

スウリョウ20 
タンカ 29800 

、キンガクハ596000円デス 
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カナ文字を直接入力する方法 


カナ 文字をキャラクタ. コー ドで入力していくのは，煩しいと感じる読 
者に，大変便利な方法があります.それは，プログラムによつて，アルフ 
ァ ベットキーやテンキーの人力をカナに変換して表示し，それを配列変数 
にたくわえる方法です. 

そのプロ グラムを紹介しましよう. 

まず，このプログラムは，行番号9000以後となっています.ですから， 


キー入力したら，カセットへセーブしておき，必要に応じてメインプログ 
ラムに重ね合わせる形でロー ドして使用するとよいでしよう. 


©© 


LOAD 


必要に応じて， 

カセツトから呼んで#て 
使用する. 


10 

20 


GOSUB 9500 
GOSUB 9000 


2000 


メインフログラム 


9000 


9590 RETURN 


カナ文字入力 
サブルーチン 


• 使い方# 

この プログラムが実行されると，画面の左下に“ >’’が表示されます. 
これは，いま，カナ大文字の入カモードであることを不しています. 

ここで，@ キーを 押すと，英文字人カモードとすることができます. 
このときのメッセージはとなります. 

カナ 大文字人カモードのとき， （3 キーを押すと，以後の1文字がカナ 
小文字人力となり，このときのメッセージは，が表示されます. 

なお， （ M 2 キーを押すことにより，以前に押された1文字を削除するこ 
とができます.以上の機能をまとめると，次のようになります. 
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** オキナワケンナハシミハラ ** 

>トゥキョゥト 


( 




英字. 

raCzD(±)[iD(±][±] 〇 〇 HP 
EZDCEimtXlCZDCEJCElCIDCEIE 

□□ □□ cu い 、 i m i ク i r^n nn nn 广 

Cl I ci]C5D[Z] 110 EZDGDlIIDd^C^ 


• メインプログラムとのリンク法籲 

例えば，カナで氏名を入力したい事例で考えてみることにします. 

配列変数 A $() にその氏名をとり込んでいくことにします. 

10 CLEAR . 配列プログラムでは忘れずに/ 

20 Din A$( 20 ) 

30 G 0 SUB 9500 . キャラクタ•データの読み込み 

40 FOR B -- 1 TO 3 人数の設定 （ 20 人まで自由に変えて下さい) 

50 PRINT " No ."; B ; TAB (3); CHR $(13 フ）； CHR 
$(20 フ）； CHR $( 180); CHR $(32); C ' HR $ C 202 

60 GOSUB 3000 
70 C し S 


籲 カナ大文字入カモード > 

•英文文字入カモード < 

春 カナ小文字入カモード = 

春 削除 [DEL] 

なお，このプログラムの1回の実行で，16文字まで人力することができ 
ます.また，必要な文字の入力が終ったら，_キーを押すことで，メイ 
ンプログラムに戻リます. 

カナ入カモードでのキー配置 


0 0 EQ 0 「 
SEEQL 

nBQBs 
$s0 0 B 
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カナ大文字 
処理 


カナ文字入カサブルーチンプログラム 

9000 F=1 : 舶 $="":P=1:LOCATE 0 j 3 ：PRINT " > 

II • 

3010 U.-=ASCCIHKE ； Y$) : IF U=0 THEN 9010 
9020 BEEP : IF U<；32 THEN 9130 
9030 IF P=17 THEN 9010 
9040 IF F=1 THEN A.^$=AA$+LJ$(U-32): lOCAT 
E P ? 3：PRINT U$(U — 32);:P 二 P 十 1:GOTO 9 
010 

3050 IF F-: - 1 THEN 3110 

3060 U=ASC(UJ 丰く U — 32)):F-=1:L0C：ATE 0 ； 3：PRI 
NT M >"； 

9070 IF U>176 THEN IF U<182 THEN U=U-10 

3080 IF U> 211 THEN IF U ぐ 215 THEN UA-40 

9090 IF U=220 THEN U=166 

9100 IF U=i94 THEN U=175 


80 PRINT "木木"；木木" 

90 . カナ文字入カルーチンでのデータの受け渡し 

100 NEXT B 

110 FOR B=1 TO 20 

120 PRINT A$CB) ； . a $ 配列の内容を表示する 

130 C$=INKEY $： IF C$= ,,M THEN 130 
140 IF C$=CHR$(13) THEN 160 
150 GOTO130 
160 NEXT B 
170 END 

30 行で，9500行〜 9550 行のキャラクタ•データを配列に呼びこんでいます. 
40行〜100行の FOR 〜 NEXT ループで， A $() の配列に，文字を読み込 
みます. 

170行の END は忘れずに付けて下さい.とくに，こうしたサブルーチン 
を使用するときは， END がないと，再び9000行を実行してしまいます. 

カナ文字を直接人力できる，次のプログラムを是非有効に使いこなして 
頂きたいと思います. 


字理 
ナ文処 
力小 
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カナ文字を直接入力する方法 


3110 LOCATE P ? 3：PRINT CHR$(U )； ： 

CHR$(U) 

9120 P:P 十 1:G0T0 3010 

3130 IF U=17 THEN IF P>1 THEN P 二 P-l:LOC 
ATE P ， 3: PRINT " :AA$=LEFT$(AA$，P 

一 1) 


英文， 

カナ小文字 
処理 

ノくツク 
スペース 

( 削除） 


9i^0 IF U-29 THEN F 二 - F ] モ-ド変換 

9150 IF U 二 28 THEN IF F=1 THEN F 二 0 ] カナ小文字 

9160 LOCATE 0? 3 ： PRINT CHR$(61 . 卜 F); : IF U= 

13 THEN RETURN ELSE 9010 
9500 DATR 32,205,199,204,199,37,177,39, 

204 ， 1 フフ ^ 

9510 DATA 206,213,180,205,21? ， 220 ， 200，2 
18,185,210 

9520 DATA 222,223,203,212,213,214, 181 ， 1 T 

SI) 179,179,180,206, M \ 

9530 DATA 193,186, 191, 188, 178 3 202,183； 1 力 

3^1, 198,207 % 

9540 DATA 201,216,211 ， 208,215,130 ， 132, 1 

83，136，182 ^ 

9550 DATA 197；203 ? 195,187,221,194,91,22 
0，33,213,35,36 

3560 DIH U$(90)*l;REST0RE 9500 

35 フ 0 FOR 1=0 TO 64 ： READ U: U$( I )-'CHR$(U) 

: NEXT I 

9580 RESTORE 9530：FOR 1=65 TO 90:READ U 
: U$(I)=CHR$(U):NEXT I 
9590 BEEP : RETURN 


このサブルーチンで，次の変数を使用していますから，メインプログラ 

ムでの変数に，ダプリが生じないよう気をつけて下さい . 

F :文字のモード設定 I :文字読み込みループ変数 AA $ :変換したカナ文字列 

P :文字カウンタ V :読み込んだ文字コード W $(0)~ W $(90) :変換した 

カナ文字 
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L フロー チヤ ー トの書き方 5-19 


新たにプログラムを作るとき，フローチャート （ 流れ図）は大変便利で，フ 
ログラムを作ってしまった後でも役立ちます. BASIC の命令をひととおり覚 
え，短かいプログラムが作れるようになったら，次には，フローチャートを書 
く習慣をつけるようにしたいものです。 

それによって，長いプログラムでも，処理の範囲や順序をはっきりさせ，手 
落ち，余分な処理，誤った処理をなくすことができるようになるだけでなく， 
時間がたってからプログラムを見直したとき，あるいは修正したいときにも大 
変役立ちます. 

■ フローチャート記述のきまり 

わが国では ， JIS C 6270情報処理用流れ図記号に定められていますが，こ 
れは，国際規格とも矛盾せず対応するように作られています. 

JIS では30種類の記号が定められていますが，さし当たり次に示す9種類で 
十分です. 

記号 意味 

処理 ( process ) 一 あらゆる種類の処理を表わす. 

判断 ( decision ) 一 いくつかの経路のうち，どの経路をとらせるかの 
判断を表わす. 

手操作入力 （manual input ) ー キーボードからの入力を表わす. 


0 


口 

〇 

〇 


入出力 （ i 叩 ut / output ) — データを入出力する機能を表わす. 

書類 （ document ) — プリンタやプロッタに打ち出す 
表示 ( display ) 一画面に表示する. 

結合子 ( connector ) 一流れ図の他の場所への出口，または他の場所 
からの入口を示す. 


\ 端子 ( terminal ) — 開始•終了など流れ図の端子を表わす. 
- 流れ線 (flow line ) 一記号を結びつける機能を表わす. 
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■ 記号の使い方 

流れの方向は，原則として左から右へ，上から下へとなります.それ以外の 
方向の場合は，矢印をつけて示します.矢印は，つけた方が分りやすいときは 
なるべくつけるようにします. 

流れ線は，交差しても差しつかえあリません. 

記号とともに書く文，例えば「スタート」とか 「「 A 二0」などは，できるだ 
け記号の中に書くようにします. 



一つの記号に二つ以上の出口を書くこと（分岐）は差つかえありませんが， 
それぞれの出口に分岐の条件を記入する必要があります. 



なお，各記号をきれいに，早く書くには，市販されているテンプレートを利 
用されるとよいでしょう. 

■ フローチャートを書く手順 

フローチャートは，やりたい仕事の手順をそのまま図式化すればよいのです 
が，実際にやってみると，なかなかうまくはいきません.そこで，流れをどの 
ように考えるかを，お話しましょう. 

フローチャートには，次の2種類があります. 

① 概要フローチャート （Logic Flowchart ) 

② 詳細フローチャート （Detail Flowchart ) 
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どちらも同じ形式で，またほとんど同じ記号を使って書きます. 

(1) 概要フローチャート 


フローチャートを作成するに当って，まず実行する仕事の全体を大づかみに 
して考えます.例えば，次のようです. 

データの読み込み一> 計算 一 ^書き出し 
右図のようになりますが，この概要フローチ 
ャートは，詳細フローチャートを作る前段階と 
しての役目とともに，とくに複雑な手順の場合 
を除けば，これから直ちにプログラム作り（コ 
ー デイング） に入ることもできます. 

(2) 詳細フローチャート 
概要フローチャートに沿って，作業の実行順 
序を細かく，命令または命令に近い形で書き表 
わします.ただし， BASIC プログラムでは， /--、 

C ォヮリ ) 

あまりに詳細なものは必要ありません. 、-ノ 

いずれにしても，プログラムを作る前に，フローチャートを書いて，この段 
階でじっくり時間をかけることが大切で，準備の手順，入力の仕方，処理の方 
法，出力の形式へと移っていくようにします. 
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それでは，例として，2桁の整数を1桁の整数で割る算数ドリルプログラム 
を，フローチャートから作ってみましょう. 


〔概要 フローチャート〕 〔詳細 フローチャー ト〕 〔プログラム〕 




10 CLS 

20 INPUT ,: nONDAI NO KAZU" ；N 
30 FOR 1=1 TO N 
40 A=INTCRND*100) 

50 IF A<10 THEN 40 
60 B=INT<RND*9+1) 

70 CLS : PRINT " C " ； I；*')" 

80 PRINT TAB(5);A;'. ； B ；"="； 

S0 INPUT "”， X 

100 PRINT TAB ( フ ）；：INPUT " "，R 

110 IF XOINKR/B) THEN 80 

120 IF R く 〉 A HDD B THEN 80 

130 NEXT I 

140 END 
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I PB -700 のグラフィック機能 5-20 


PB — 700は， 20 桁 X 4 行のキャラクターを表示する大型の液晶表示 （ LCD ) を 
もっていますが，この LCD は， 160 X 32 個のドットで構成され，同時にグラ 
フィック表示をも可能にしています. 

PB — 700のグラフィックは，簡単なコマンドで，精密なグラフや図形を描く 
ことができます. 

また ， PB — 700にカセットインタフェイス付ミニプロッタプリンタ （ FA — 10) 

を接続すると，紙幅 114 mm ，4 色のプロッタ•プリンタを動かすことができます. 

紙幅114 mm に，最大80桁の文字が書けるということは，本格的なプロッタプ 
リンタとほとんど同じ感覚で使用することができるということです. 

PB — 700はコンパクトながら，高度なグラフィック機能を備えていますので， 
これを100 %活用できるように，本編で習熟してください. 

最初のうちは，多少面倒な感じをもたれるかもしれませんが，少し慣れてく 
ると，グラフィックのおもしろさに必ず取りつかれることでしよう. 

カセットインタフェイス付ミニプロッタプリンタ （ FA 10) 
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グラフィック命令と LCD 座標 5-21 

画面上に図形を描くということは，点を次々につないでいくことを意味し 
ています.したがって，指定した位置に点を描くことができればよいわけです. 
つまり，グラフィック表示をするには，点（ドット）を描いたり，消したりする 
命令があれば事足りるわけですが， PB -700 には，画面グラフィック用に次 
の 2 つのコマン ドが用意されています. 

DRAW . 点や直線を描くコマンド 

DRAWC . 点や直線を消すコマンド 

また，グラフィック用の便利な関数として，…… 

POINT . 指定した位置に点が描かれているか否かを示す 

……が用意されています. 

さて，これらのコマンドや関数の使い方を説明する前に，まず，画面のドッ 
卜の位置（座標）について知っておかねばなりません. 

下図を見てください.小さく書かれている数字（横： 〇〜159縦： 〇〜 31) 
が，ドットの位置，つまりグラフィック座標を示しています.また，大きな数 
字（横： 〇〜19縦： 〇〜 3) が，キャラクター座標です. 

キャラクターは， 8 X 8ドットで描かれるグラフィックであると考えること 
ができますが，表示される位置が決められています. 

それに対して，グラフィック座標は，どの位置にでも点や線を描くことがで 
きます.下図の（3， 29) から（29， 17) までの直線は，グラフィックコマン 
ドで描いたものですが，どこにでも自由に描くことができます. 

画面の座標 

0 1 2 3 4 5 617 18 19 


0 2 4 6 81012141618 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 13814014?14414614815015215415615319 
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前頁で見たように，グラフィック座標は，画面の左上隅を（0，〇)，右 
下隅を（159, 31) として， X 方向160ドット， Y 方向32ドット，合計で512’0ド 
ットで構成されています. 

この座標によって，画面上のドット位置が指定できます. 

たとえば，（ X ， Y ) の位置に点を打つ場合は…… 

DRAW (X, 丫） 

……とします.また，（ X ， Y ) の点を消すときは…… 

DRAWC (X ，丫） 

……とします. 

直線を描くときも同じコマンドでよく，直線の両端の座標（ X 〗， Yi )，（ X 2 , 
Y 2 ) を次のように指定します. 

DRAW (Xi,Yi) - (X 2 , Y 2 ) 

これで，（乂ぃ YJ から （ X 2 ， Y 2 ) までの直線が引かれます. 

また，3点 （ XnYj ， （ X 2 ， Y 2 )， （ X 3 ， Y 3 ) を結ぶ線を描く場合には 


DRAW (Xi, Yi) - (X 2 , 丫 2 ) - （ X 3 , 丫 3 ) 

……のように指定します.同様に''一"で座標を結べば，連続した直線をいくつ 
つでも描くことができます. 

直線を消すときは…… 

DRAWC (Xi, Yi) - (X 2 , 丫 2 ) 

……のように指定します. 

POINT 関数は，指定した位置のドットが点灯，つまり点が描かれていると 
き•は，1を与え，点灯していないときは，〇を与えます. 

たとえば，（ X ， Y ) 座標の点を調べるときは…… 

POINT (X ，丫） 

……のようにします. 

点が描かれているかいないかの値，1，0をプログラム上で利用したいとき 
は，次のように変数に代入して使えばよいでしょう. 

A = POINT (X ，丫） 
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3-21 

前頁で説明した直線の引き方を活用して，まず多角形を描くプログラムを見 
ていただきましょう. 

多角形を描くには，多角形の頂点の座標を， DRAW コマンドで結んでいけ 
ばよいわけです. 

■三角形を 描くプログラム 

頂点（100，5)， （85，25)， (125, 25) からなる三角形を描くプログラム 

は，次のようになります. 


10 REP1—-TRIANGLE —- 

20 C し S 

30 DRAU く 100 ， 5 〉一（ 85,25 〉 -(125,25 〉一（ 100 ， 
5) 

40 END 


DRAW コマンドの座標の指定は，数 
式で指定することもできます. 

たとえば，上記のプログラムを数式 
を使って書き換えてみますと，次のよ 
うになります. 


画面上に描かれる三角形 



10 REM —— TRIANGLE —— 

20 CLS 

30 X=100 ： Y=5 ……描き始める点の座標 
40 DRAUKX ， 丫 ） - （ X- 15, 丫十 20 )- (X 十 25 3 丫十 20〉- 
(X ， Y 〉 

50 END 
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■長方形を 描くプログラム 

次の プログラムは，（80，5 ) —(150， 28) の直線を対角線とする長方形を 
描く例です. 


10 REM —— RECTANGLE --- 

20 C し S 

30 DRAU (80 ， 5 〉 -(150 ， 5)-(150 ， 28)-(80，28 
)-<80 3 5) 

40 END 


■正 五角形を描くプログラム 

正多角形は，円に内接する多角形で，その 
頂点が等間隔に並んでいます. 

右図は，半径が R の円に内接する正五角形 
ですが，その5つの頂点と内の中心を結ぶ線 
は，同じ角度 A (この場合は72度）で交わっ 
ています. 

この性質を利用して，中心（100，18)，半 
径15の内に内接する正五角形のプログラムを 
書くと，右のようになります. 

10 REP1 - PENT AGON - 

20 C し S 

30 R=15 . 半径 

40 X=100 ： Y=18 . 円の中心 

50 A=360/5 . 角度 

60 FOR 1=0 TO 360 STEP A 
70 DRAUCX-SINCI)*R 5 Y — C0S(I — （ X — SIN 
(I 十 丫 -C0S(I 十 A)XcR) 

80 NEXT I 
90 END 


正五角形 
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■ 正 N 角形を描〈プログラム 

正五角形のプログラムの角度 A を変更すれば，正 N 角形を自由に描けます. 

正五角形 A = 360/5 
正 N 角形 A = 360/N 

次のプログラムは， N を入力して，正多角形を描く汎用プログラムです. 
ただし，円の中心を（100， 15) としてあります. 


10 REM ― PO し VGON —— 


20 C し S 

30 R=15 . 半径 

40 X=100: 丫 =15 . 円の中心 

50 INPUT ,, N="；N . 正 N 角形 

60 A=360/N . 正 N 角形の角度 


70 FOR 1=0 TO 360 STEP ft 
80 DRAU(X-SIN(I)*R 3 丫 _C0S(I 一 （ X—SIN 
(I 十 A) 木 Rj 丫一 C0S(I 十 A) 木 R) 

90 NEXT I 
100 END 
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曲線を描く 5-22 

曲線を描く場合にも，画面上の座標を指定して，点を描いていけばよいので 
すが，問題は座標を指定する方法です. 

数学の公式を利用すれば，いろいろな曲線を引くことができます. 

ここでは，円とサインカーブを描いてみます. 


■円を 描くプログラム 

前項の正多角形のプログラムの N を大きくしてい〈と，図形は次第に円に近 
づきます.幾何学的にはどこまでいっても多角形ですが，画面上で曲線を表 
示するには，この要領で直線をつ.ないで曲線にします. 

次のプログラムは，座標（100， 15) を中心とする半径15の円を描くもので 

す. 


10 REM - CIRCLE - 

20 C し S 

30 FOR 1=0 TO 360 STEP 5 

40 X=100 十 C0S(I )*15 . 円弧上の点の横の位置 

50 丫 =1 5-SIN ( I 〉木 15 . 円弧上の点の縦の位置 

£0 DRAU(X 3 Y) 

70 NEXT I 
80 END 


■サイン カーブを描くプログラム 

SIN (I ) という関数の値は， I の値が0°から360°まで変わる間に， 0—1 — 
0^- 1 — 0 のように変化します. 

したがって， SIN(I ) の値に適当な倍率を乗じたものを，縦の位置として点 
を描いていけば，サインカーブとなります. 

次のプログラムは，サインカーブを描いた後に， X 軸， Y 軸も描きます. 
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i0 REfl —— SINE —— 


20 C し S 

30 A=65 ： B=15 ……サイ ンカーブの出発点（ X ， y 軸の原点) 

40 11=12 . 倍率 

50 FOR 1=0 TO 360 STEP 4 

60 十 1/4 . x 座標点 


70 Y 二 B-SIN(I) 木 fl ..…丫座標点 

80 DRAU(X 5 V) 

90 NEXT I 

100 （ A ， 28 〉 . y 軸 

110 DRAU<A ? B)-(A+92 3 B) .x 軸 

120 END 


表示例 
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げれ線グラフを描く _ 5-25 


グラフにもいろいろありますが，ここでは折れ線グラフを描いてみましょう. 
折れ線グラフがよ〈使われるのは，たとえば，ある期間中の気温の変化とか 
降水量の変動とか，あるいは株価の足どり，といったように，どちらかといえ 
ば，時間的な変化の傾向をつかみたい場合が多いようです- 
したがって， できるだけ画面を一杯に使って，変化が明瞭に現れるようにす 
るとよいでしょう. 

■月 毎の平均気温を折れ線グラフに描くプログラム 

ある都市の月毎の平均気温が，次の表の通りであったとします.この気温の 
データを DATA 文でプログラム中に人力しておいて， READ * で読み出しなが 
ら，折れ線グラフに描くプログラムにしてみます. 


月 

気温 C 

月 

気温 °c 

月 

気 温 。 c 

1 

11.5 

5 

19.8 

9 

22.3 

2 

9.8 

6 

23.4 

10 

18.5 

3 

13.7 

7 

26.6 

11 

15.9 

4 

18.3 

8 

28.2 

12 

14.7 


i0 REn —-LINE GRAPH- — 

20 C し S 

30 FOR 1=1 TO 3 

40 PRINT 30-CI-l) 太 10;CHR 主 （ 14 フ） …… = 卜 
50 NEXT I 

& 0 PRINT TA 日 （ 3);CHR 主（ 154 ); ……=し 
フ 0 FOR 1=1 TO 12 
80 PRINT CHR^C144 )； ……=丄 
90 NEXT I 
100 FOR 1=1 TO12 
110 X=3G 十 （ I 一 1) 太 8 
120 READ R 
130 丫 十 C30 — A ) 太 0. 8 
140 IF 1=1 THEN 1G0 
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150 DRAU(P ， Q 〉 -(X ， Y) 

160 P=X ： Q=Y 
170 NEXT I 

180 DATA11.5j9.8 3 13 • フ， 18.3,13.8323 .4,2 
6. 28.2522 -3 5 18.5, 15.3, 14 , フ 
200 IF INKEY$= ,M, THEN 200 
210 END 


グラフの数字，縦 （ Y ) 軸，横 （ X ) 軸，および折れ線の位置関係がどのように 
なっているかがわかるように，画面のドットパターンの一部を拡大してみま 
した.図形やグラフを描くプログラムを作るときには，あらかじめこのような 
絵を描いて，位置関係を調べてお〈とよいでしょう. 

ドットパターン 



なお，ちょっとしたプログラムのテクニックですが，200行がないとプログ 
ラムの実行が終ると同時にコマンド待ちとなり，画面に . 

Ready P の 

……のような表示が表われ，せっかく線を描いたグラフがずれてしまいます. 

200行目のようなステートメントを入れることにより，何かのキーが押される 
まで，プログラムの実行は終了せず，そのままグラフを表示させることができ 
ます. 
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棒グラフを描く準備 5-24 


■キャラクタを 使った棒グラフの描き方 

次のプログラムを実行させ， N に1〜20の数を入力すると， N 個だけ_印を 
並べて表示します. 


10 CLS 

20 INPUT "N= ,, ；N 
30 FOR 1=1 TO N 

40 PRINT CHR$(131〉； …… chr$(131) は-印 
50 NEXT I 
60 END 


つまり，数 N に比例した長さの棒状の図形が描かれます. 

これが棒グラフの原理ですが，画面は20桁しかないので，20を超える量を表 
現するためには，一印1個のスケールを小さくすることが必要です. 

たとえば，100点満点の点数を表示するには，上記のプログラムの30行を， 


次のように変えることになります. 



30 

FOR 

1=1 

TO 

N/6 

または，…… 

30 

FOR 

1=1 

TO 

N STEP 6 


しかし，このやり方では， N がたとえば90から95までが同じ長さとなり，少 
々荒っぽい表示になってしまいます. 

大雑把でもよいときは，このやり方が簡単でよいのですが，もっと精密に描 
きたいときは，グラフィックを使う方がよいでしょう. 

■グラフ ィックによる棒グラフの描き方 

上記の （ L — 9 ) のプログラムをグラフィックで描くと，次のページの （ L —10) 
のようになります. 

どうですか•この場合は横が160，すなわちキャラクタで描くときの8倍の 
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3-24 


L-IO 


10 CLS 

20 INPUT "N="；N 
30 FOR 1=1 TO N*1.5 
40 DRAUIC I — 1 3 8) — (I —1 j 14) 
50 NEXT I 
b0 END 


精度で表示できます . 

このプログラムでは，ベタ 塗りの棒です が， 棒の模様を蛮えることによって， 


より見易いプログラムを書くことができます . 

次の ® 〜⑤のプログラムを， （ L 一 10 ) のプログラムにそれぞれ追あるいは 
変更することによって，次のような模様で，棒グラフを描くことができます . 
® ⑥ © ⑧ 

lllll=3S® 


® 35 IF I' 似 1.5 THEN 40 
36 IF I NOD 2=0 THEN 50 

® 30 FOR 1=8 TO14 STEP 2 
40 DRAUJC0 ， 1 〉 - （ N 木 1.5-1 ， I) 

©35 FOR J=：8 TO14 STEP 2 
40 DRAUK 1-1 ， J 十 （I 十 1)flOD 2) 
45 NEXT J 


⑧ 25 FOR J=8 TO14 

30 FOR 1=1 TO N*1.5 STEP 3 

35 X=(J-8) HOD 3 十卜 1 

36 IF X>N*1.5-1 THEN X=Nr_U5-1 
40 DR.^UCXj J) 

50 NEXT I：NEXT J 
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L 棒グラフプログラム 2 例 5-25 

棒グラフは，たとえば，生徒やセールスマンなどの成績，生産高，商品別売 
上高のように，相対的な関係を見るときに多くつかわれます. 

ただ，相対的な比較ばかりではなく，各データの大きさ，つまり棒の長さも 
ある程度正確に表示する必要もありますので，画面の限られた範囲内で，適当 
なスケールで描くことが大切です. 

棒グラフにも，目的によっていろいろの描き方がありますが，基本的なもの 
として，1本の棒で単一の量を示すもの（たとえば，製品別の生産高を示す場 
合）と，1本の棒で全体の量と同時に，その内訳をも示すもの（たとえば，総 
生産高と製品別の割合を示す場合）などがあります. 

ここでは次の例を使って，この2種類の棒グラフを描くプログラムを示しま 
す. 

データ例：ある自動車メーカーの A ， B の 2 種類の生産台数が，次表のようであ 


つた. 



1980 年 

1981年 

1982年 

A 車 

B 車 

48200 台 

39200 台 

57200台 

31100台 

67200台 

27500台 


a 車の棒グラフの形： 


B 車の棒グラフの形 ： [ 


■ 1本の棒で単一の量を示す棒グラフのプログラム 


L-11 


10 REM — BARGRAPH --- 

20 C し S 

30 FOR 1=0 TO 2 
40 LOCATE 0 , I 

50 PRINT 80 十 I;CHR$(136) …… chr$ (136) = ( I) 
60 FOR J=1 TO 2 
70 RERD ft 
80 FOR K=0 TO 2 
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3-25 


90 丫 =I*8+( J-im 十 K 

100 IF J=2 THEN IF K=1 THEN DRAUK24 十 (V 
500 3 丫バ GOTO120 
110 DRAU(25 3 Y)-C24+A/500 3 Y) 

120 NEXT K：NEXT J：NEXT I 
130 IF INKEY$= M " THEN 130 
140 END 

150 DATA 48200339200357200 ， 31 100， 6 フ 200 ， 
27500 



80 

81 

82 


- — 1 

_ _ _ | 

一一 - I 


■ 1 本の棒で全体の量と同時に内訳をも示す棒グラフのプログラム 


L-I2 


10 REI1—-BARGRAPH --- 

20 C し S 

30 FOR 1=0 TO 2 

40 LOCATE 0，1 

50 PRINT 80+I ； CHR$(136) 

60 READ A，B 
70 FOR J=0 TO 6 

80 丫 =1 木 8 十 J 

90 DRAU(25 ， Y)_(24 十 A/1000 ， 丫） 

100 NEXT J 

110 X=24 十 A/1000: 丫 =1 木 8 

120 DRAUCX 十 1 ，丫）一 （ X+B/1000 3 丫〉一 （ X+B/1000 

5 丫 十一 （X 十 1 3 Y 十 6) 
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3 - 25 


130 NEXT I 

140 IF INKEY$="" THEN 140 
150 END 

160 DATA 482003 39200 ， 57200 ， 31100，672003 
27500 


表示例 < 

80 

81 

82 
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f . 動画(アニメ-シヨン)の描き方 5-26 


■絵を 動かすしくみ 

次のプログラムを実行すると， * 印が左右に動きます. 

レ 13 


10 CLS 

20 FOR 1=5 TO15 

30 LOCATE I， 1 

40 PRINT " 

50 NEXT I 

左から右へ移動 


60 FOR 1=15 TO 5 

70 LOCATE I 3 1 

30 PRINT 1 • 木 1, 

90 NEXT I 

100 GOTO 20 

STEP -1 

右から左へ移動 


プログラムを見ると，20行で制御変数 I を5から15まで変化させながら，30 
行のステートメントで力ーソルの位置が， （ 5， 1) から（15， 1) まで変りま 
す.その位置にを描くことによって， * 印を描くと同時に先に描かれ 
ていた* 印を スペース によって消します. 

これを繰り返すことによって，左から右へ動いていくように見えます， 

また， 60 行〜 90 行は，逆に右から左へ動かす ステートメントです. 

実は，これがグラフ ィ ックアニメーションの原理です. 

つまり，描くことと消すことを組み合せることによって，動いているように見 
せるわけです. 

縦に動かすのも理屈は同じですが，描くことと消すことを同時に行なうわけ 
にはいかず，次のようなプログラムになります. 

L-14 


10 CLS 

20 FOR 1=0 TO 3 
30 LOCATE 103I: PRINT " 木， 
40 IF 1=0 THEN 60 


•上から下へ移動 
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50 LOCATE 10 3 I-1：PRINT " 11 
60 NEXT I 

70 FOR 1=3 TO 0 STEP - 1 
80 LOCATE 10 5 I：PRINT 11 木"； 
90 IF 1=3 THEN 110 
100 LOCATE 103 I 十 1:PRINT "" 
110 NEXT I 
120 GOTO 20 


上から下へ 
移動 


下から上へ 
移動 


■ス ピードの変え方 

前述のプログラムでは， * 印の移動が速すぎて困るような場合，スピードの 
調節を FOR 〜 NFXT 文を使って行ないます. 

(L —13) のプログラムに，次の行を追加して実行してみてください. 

45 FOR J =1 TO 50 : NEXT J 

このステ ートメントによって，左から右へ移動す るス ピー ドが 少し遅くなり 
ます •この FOR 〜 NEXT 文の終値を小さくすれば速くなり，大きくすれば遅く 
なります. 

このようなステートメントを必要な箇所に，適当に追加していけばよいわけ 
です. 


■点を 曲線的に動かす 

曲線上を動かすときは，グラフィック座標にする方が，動きが滑らかになり 
ます. 

次のプログラムは，実行例のように，枠内の点線のような軌跡上を点が繰り 
返し移動します. 

L- 15 _ 

10 CLS 

20 DRAUC 1330)-( 13^31)- (137 3 31)- (137,0) 
……枠を描く 
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30 DRAU( 14,0)- （ 14 ： »30)-(136, 30) - （13 6，0 

. 枠を描く 

40 N=1 ： P=14 

50 FOR 1=0 TO 360 STEP 3 
60 X=P+N: 丫 =23 — 25 木 ABS(COS(I 〉 ） …… 曲線の座標 
70 DRAUCXj Y) 点、 の計胃 

80 IF P=14 THEN 100 
90 DRAUC(P 3 Q) 

100 P=X ： Q=Y 
110 NEXT I 
120 N=-N 
130 GOTO 50 


実行例 



■ POINT 関数の使い方 

POINT 関数は，グラフィック座標の指定した位置に，点（ドット）が描か 
れているかどうかをチェックするものです. 

もし，横座標（ X )，縦座標 （ Y ) の位置，つまり（ X ， Y ) に点がある場合は, 

POINT (X,Y) •-1 

……無い場合は， 

POINT (X,Y) …0 

……となります. 

次のプログラムは， POINT 関数の使用例ですが，まず最初に，画面の第1 
行に、' CASIO PB —700" と書き，続いて POINT 関数で各ドットの有無をチ 
エックし，与えられた0，1の値にもとずいて，第3行へ書き写すものです 
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3-26 


L -16 


10 CLS 

20 PRINT "* 木 * CASIO PB —700 木木 * 
30 FOR X=0 TO159 
40 FOR Y=0 TO 7 
50 IF POINT(X ， 丫 ）=0 THEN 70 
60 DRAUCX?Y+16) 

70 NEXT Y 
80 NEXT X 

90 IF INKEY$ = ,,M THEN 90 
100 END 


30 行〜 80 行で，キャラクタ座標の第 1 行目のドットの有無を全部調べ，50行 


で，もしドットが打たれていなければ，70行へ飛び，打たれていれば，60彳了で 
第3行目の同じ位置にドットを打っています. 

もし，プロッタプリンタ （ FA — 10) があれば，画面のハードコピーをとる 
ことができます.プロッタプリンタの使い方は，別の項で説明しますが，参考 
のために，ハードコピーのプログラムを示しておきます. 


丄 0 C し S 

20 PRINT 11 CASIO PB- フ 00 ぃ 
25 し PRINT CHRi(28);C ： HR$(3 フ） 

30 FOR X=0 TO159 
40 FOR Y=0 TO フ 
50 IF POINT くつ =0 THEN 70 
55 U=X*,59 ； U=Y*.53 

G >0 し PRINT M D" ；： U; ぃ ；；_1 米 Us ", "；；U 十 0.4; 

- 1 米⑴十 0.4) 

70 NEXT Y 
80 NEXT X 

90 IF INKEY$= 1M， THEN 90 
100 END 


no 





I ゲームへの応用 


5-27 


アニメーションは，しばしばゲームに使用されます. 

次のプログラムは，ブロックくずしのプログラムです.特にむずかしいテク 
ニツクはないのですが，画面の変化をいかにもそれらしく見せるための技法が 
要求されます. 


初めての方には，少しむずかしいかもしれませんが，ブロックの位置をもう 
少し右に動かすとか，ラケットをもう少し左にやるといったように，少し工夫 
をしてみてください. 


それによ つて， みなさんのゲーム作り，いやプログラム作りの腕がメキメキ 
上達することは確かです. 


まず，プログラムを打ち込んでください. 


L -18 


10 REH 一一一 BLOCK KU2USHI 一一一 
20 CLS 

30 FOR 1=0 TO 3 

40 LOCATE 2,I: PRINT CHR$(13 フ）； 

50 NEXT I 
100 FOR 1=3 TO 6 
110 FOR J=0 TO 3 
120 LOCATE I 3 J 
130 PRINT CHR$(141); 

140 NEXT J：NEXT I 
200 LOCATE 17 5 1 
210 PRINT CHR$(147) 

220 R=1:S=0 

300 FOR N=3 TO1 STEP -1 
310 LOCATE 0 ， 0:PRINT N 
320 X=10; 丫 =INT(RND 木 2 十 1); 和 1;B 二 1 
330 LOCATE X 3 Y:PRINT CHR$C236 )； 

340 Q$=INKEY$ 

350 IF Q$="1"THEN GOSUB 500 ELSE IF Q 


in 









$="0" THEN GOSUB 600 
360 IF X=3 THEN A 二 - A 

370 IF Y=0 THEN B=-B ELSE IF 丫 =3 THEN 
B=-B 

380 IF X=16 THEN GOSUB 800 
390 LOCATE ん丫 ； PRINT " 

400 IF X>16 THEN 440 
410 G=(X 十 A 〉 * ： 8:H=(Y 十 B) 木 8 
420 P=POINT(G ， H 〉 

430 IF P=1 THEN GOSUB 700 
440 X=X 十 A;Y=Y 十 B 

450 IF X>18 THEN BEEP : BEEP : BEEP ELS 
E 330 
460 NEXT N 

470 CLS : LOCATE 2, 1:PRINT "SCORE ";S 
480 FOR 1=1 TO 6:BEEP 1:NEXT I 
490 IF INKEY$= ,M， THEN 430 ELSE END 
500 LOCATE 1 フ 3 R:PRINT ; 

510 R=R-1 

520 IF R<0 THEN R=0 

530 LOCATE 17 3 R；PRINT CHR$C147 )； 

540 RETURN 

600 LOCATE 17 ， R;PRINT " 

610 R=R 十 1:IF R>3 THEN R=3 

620 LOCATE 17 3 R：PRINT CHR$(14 フ）； 

630 RETURN 

700 S=S 十 8 - X;BEEP 1 

710 LOCATE X 十 A ， 丫十 B:PRINT " 

720 X=X+A:Y=Y 十 B: 

730 IF Y=0 THEN B=-B ELSE IF Y=3 THEN 
B= - B 

740 RETURN 

800 IF Y=R THEN A ニー A:BEEP 


ELSE IF Y 十 B 










=R THEN BEEP :R=-A ELSE 830 

. . 810 IF RND<0.7 THEN 830 

820 LOCATE 丫 ； PRINT " M ；： X=X-1 
830 RETURN_ 

420 行の POINT 関数は，下図のように， 1 ブロックの左上隅のドットの有 
無で1ブロック全体の有無をチヱックしています. 


POINT (G, H) 
=1 




CHR $(141) で描かれている CHR $ (32) で消されている 

1ブロック 丨ブロック 


■ゲームの やり方 

このプログラムを RU N すると，ブロックとラケットが描かれ，玉が斜に動 
き出します. 

ラケットよりも玉が右に行ってしまうと，1回終了になり，合計3回プレイ 
できます. 

ラケットは 、、1" を押すと上がり，、、〇 " を押すと下がります. 

3回のプレイが終わると得点が表示されます. 

■ブロック くずしプログラム変数リスト 


A ， 巳 

ボールの移動の方向 

G , H 

ブロックの有無を判定する座標 

1, J 

ブロック，壁を書くための変数 

N 

プレイできる残りの回数 

P 

ブロックの有無 

0$ 

ラケットの移動方向 

R 

ラケットの位置 

S 

スコア 

X , Y 

ボールの位置 
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] プロッタプリンタで図形を描く _ 3-28 


PB — 700にカセットインターフェイス付ミニプロッタプリンタを接続すると， 
プロッタが使えます.プロッタは，プリンタとしても使えますが，ドットプリ 
ンタが点を打つことによって，字や図形を表すのに対して，プロッタは点と点 
を結ぶ線によって表わしますので，図形を描くのに適しています. 

画面に図形を描くのとほとんど同じ要領で描けるのですが，なにぶん画面が 
電気的に描くのに対し，プロッタは機械的に描くことになりますので，スピー. 
ドを上げる必要があります. 

そのために，画面とは異なるプロッタ専用のコマンドが用意されています • 
コマンドー覧を次の ページに 示しておきます. 

かなり多くのコマンドがあるため，ちょっと面倒だと思われるかもしれませ 
んが，これだけたくさんのコマンドが用意されているために，図形を描くスピ 
ードが速くなり，そればかりではなく，プログラミングの手間が大幅に省ける 
のです. 

■命令の 伝え方 

プロ ッ タでグラフィックを行なう場合の命令は，すべて LPRINT で始まりま 
す. LPRINT につづいて，次のページのようなコマンドを書くことによって， 
いろいろな働きをします. 

ただし，これらのコマンドを使う前には，必ず次の命令でグラフィックモー 
ドの指定をしておかなければなりません. 

グラフィックモードの指定 ： LPFMNT CHR$(28) ; CHR$(37) 

この命令は，このまま覚えておくと便利です. 

また，グラフィックモードの解除，つまりキャラクタを印字するキャラクタ 
モードにするには，次の命令を使います. 

キャラクタモードの指定 ： LPRINT CHRS(28) » C H RS (46) 

これも覚えておくとよいでしよう. 
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表 1 プロッタコマンド ー覧表 



コマンド 

名 称 

説 明 


〇 

ORIGIN 

ORG 座標の原点指定 


D 

DRAW 

ORG 座標で指定された点と点を結ぶ 

作 

I 

RELATIVE 

DRAW 

変化量で示された点まで線を引く 

M 

MOVE 

ORG 座標で示された点まで，ペンアップで 
移動 

図 

R 

RELATIVE 

MOVE 

変化量で示された点までぺンアップで移動 

A 

QUAD 

ORG 座標で示された2点を対角とする X 軸， 

Y 軸に平行四辺形を描く 

用 

C 

CIRCLE 

ORG 座標で指定された点を中心とする円， 
円弧を描く 

X 

AXIS 

ORG 座標の原点より， + Y ，+ X ,_ Y ，一 X 
方向に座標軸を描く 


G 

GRID 

指定された四角の中に横縞，縦縞を描く 


し 

UNE TYPE 

実線，破線，一点鎖線，二点鎖線を描く 


巳 

LINE SCALE 

破線，一点鎖線，二点鎖線のピッチの指定 


S 

ALPHA SCALE 

文字記号の大きさを指定 

又 

字 

Q 

ALPHA ROTATE 

文字，記号の回転方向を指定 


Z 

SPACE 

次桁，次行の文字間隔を指定 

記 

a 

Y 

YOKO 

横書き，縦書きの指定 

万 

用 

P 

PRINT 

文字列の印字 


N 

MARK 

ペン位置を中心に マークを 描く 


J 

NEW PEN 

ペンの色を選択 

制 

F 

UNE FEED 

行単位の紙送り，紙もどし 

御 

H 

HOME 

絶対座標の変更，または図形を見やすい位置 
へ移動 

用 

@ 

TEST 

ペンならし，ペンのインク状態のチェック 
〈実行例〉 LPRINT CHR $ (28) ; CHR $ (37) 

: CHR$(64)^] 

文 

字 

T 

TAB 

タビユレーシヨン 

制 

御 

? 

FORMAT 

プログラムリスト出力用 
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L 直線を引く _ 5-29 


■ 線を引く （ D コマンド） 

直線を引くコマンドが， D です. 

プロッタの紙幅は 114 關ありますが，実際に図形を描ける紙幅は 96 mm です • 
プロッタの電源を ON にすると，プロッタのペンは左端に位置します•この 
点を（0，〇) の 座標としますと， その ラインの右端の座標は（96，〇)とな 
ります •この （〇, 〇)から（96， 〇) の 線を X 軸としますと，ラインより上 
側は， Y 軸のプラスの座標，下側はマイナスの座標となります. 

でけ D コマンドを使って，（〇，〇)から（7〇, 一 30 )まで線を引いてみ 


ましよう. 


L -19 


10 LPRINT 
20 し PRINT 


CHR$(28) ; CHR$C37) … グラフィックモードの指定 
"D" ; 0; " 3 " ; 0; 'V ; 70 ； n ， " ； -30 

111 I 

X 座標 Y 座標 X 座標 丫座檫 


実行例 



このように， LPRINT に続く コマンド 「 D 」 や カンマ 「，」のよつなキャフク 
夕や記号は， すべて 引用符「"」でく くるとともに，それらの間の区切りには， 
必ずセ ミコ ロン「；」をつけます. 

一般に，点（ XI ， Y 1) から （ X 2， Y 2) まで直線を引く命令は…… 
LPRINT 、、 D"; XI ;V;Y1 ;'' ， "; 父 2;'、，"; Y2 

@パラメーターが 数値の場合， 冽 題の20行は次のようにも書けます. 

2© し PRINT '' D 0 ,0,70, 一 30 " 

他のコマン ドで も 試して見て下さい. 

. で表わします. 

では次に， （0- 〇)-(70，-30) —(90， 10) の2本の線を引いてみます. 
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LPRINT CHR$(28) ； CHR$(37) 

LPRINT 1, D ,, ； 0 ； % ";0 ;"， 11 ； 70 ； % ": 一 30 ; 

n パ , ； 10 

I 

(90,10) (0，0) (70， 一 30) 



定してもよく，連続したいくつもの線をひくことができます. 

また，行をかえて次のように書くこともできます. 

^ 21 10 LPRINT CHR$(28);CHR$(3 フ） 

20 LPRINT "D";0; •' ， " ； 0; " ， " ； 70; - 30 

30 LPRINT "D M ； %" ； 90；"， "； 10 

現在ペンのある位置から（90， 10) まで線を引く 
一般に，現在ペンのある位置から （ X 2， Y 2) まで線を引くときは…… 

LPRINT ''D";'";X2;'";Y2 

……とします. 

引用符やカンマ，セミコロンがたくさん使われて，少々面倒な感じもします 
が，慣れればそれほど厄介に感じませんし，繰り返しが多いので，むずかしい 
ことではありません. 


3-29 
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長方形と円と色の指定 5-50 


■長方形を 描く （ A コマンド） 

下図の長方形は，点（10，〇)と点（85， 一 30) の対角線の両端を指定し ， A 
コマンドで描いたものです. 



プログラムは， A コマンドを使って，次のようになります. 

~ 22 10 LPRINT CHR$(28);CHR$(37) 

20 LPRINT W ;10; " ， " ； 0; " ， " ； 85; " ， " ；一 30 

I I 

(10，0) (85, 一 30) 


このように，対角線の両端の座標を指定するだけでよいのです. 


■円を 描く （ C コマンド） 

円は， C コマンドを使って，中心座標と半径を指定するだけで描けます. 
紙のほぼ中央の点（47, 一50) を中心に，半径25の円を描くプログラムは，次 
のようになります. 

L-23 10 LPRINT CHR$(28);CHR$(3 フ） 

20 LPRINT "C M ;4 フ； " 3 - 50;”；25 

I — ~ 丁 

円の中心座標 半径 

画面の上に描くプログラムと比較すると，ずい分簡単ですね- 
このプロ グラムの実行例は，次のページの左上図のようになります. 
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5~5(〇) 


実行例 


実行例 




しょう.プログラムは，次のようになります.また，実行例は右上図のように 
なります. 


10 

し PRINT 

CHR$(28);CHR$(3 フ） 

20 

FOR R=1 

TO 3 

30 

し PRINT 

"C 11 ； 4 フ ； " 3 M ； -50; " 5 ； R*10 

40 

NEXT R 




半径を変える 


■色の 指定 （ j コマンド） 

プロッタには，黒，青，緑，赤の4色のペンが内蔵されていますが，この4 
色を使い分けることができます. 

ためしに，前項のプログラムに25行を追加した次のプログラムを実行してみ 
てください.同心円が色分けされて描かれます. 


10 

LPRINT 

CHR$(28);CHR$(3 フ） 

20 

FOR R=1 

TO 3 

25 

し PRINT 

"J" ;R 

30 

し PRINT 

W フ； " ， - 50;" ， W ； R*10 

40 

NEXT R 



119 












5 - 5(0 


このように，色の指定は J コマンドで行ないますが，それぞれの色は，次の 
ような値で得られます. 


し PRINT 、' J " 
し PRINT 、' J " 
し PRINT 、' J " 
し PRINT 、' J " 


黒 

青 

緑 

赤 


また，上記のように値を数値で与えるときは， '、 J 0〃、' J 1" '\ J 2" '' J 3" のよ 
うに書くことができますが，変数や数式のときには， セミコロンし） で区切 
って指定しなければなりません. 
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し グラフを描くテクニック 5-51 


プロッタは，折れ線グラフ，棒グラフ，円グラフなど，各種のグラフを描く 
とき最高に威力を発揮します. 

■座標を 決める（0， H , X コマンド） 

グラフには座標がつきものですが，最初にやることは位置決めです. 

し PRINT、、cr : X ； , 7/ ； Y 

0コマンドによって，（ X ， Y ) の位置に座標の原点を置くことができます. 

LPRINT 、' H 20" または LPRINT 、' H " ; A (A は 変数） 

この命令によって，原点の位置が，20あるいは変数 A の値だけ下方に移動し 
ます. 

以上のような命令で原点が決まったら，折れ線グラフや棒グラフなどの座標 
軸（ X 軸， Y 軸）と目盛を描くことになりますが，それには非常に便利な X コ 
マンドを使います. 

LPRINT '' X ";0;''，"；5; 

LPRINT T ; 1:5 ;'、，"；16 

X のすぐ後の数字は，軸の方向を示します. 

0: Y 軸を原点から上に向って引く 
1: X 軸を原点から右に向って引く 
2: Y 軸を原点から下に向って引く 
3: X 軸を原点から左に向って引く 

次の数値5は，目盛のピッチ（単位： mm ) を指定し，その右の数値10や16は， 
目盛の数を示します. 

これらのコマンドを利用した例が，次のプログラムです. 


10 

LPRINT 

CHR$C28) ； CHR$(37) 

20 

し PRINT 

"05, -50 _， 

. 座標の原点指定 

30 

LPRINT 

••X0 ， 5,10" 

…… Y 軸と目盛を描く 

40 

し PRINT 

"XI,5,16" 

•••••• X 軸と目盛を描く 
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このプログラムを 実行すると，（5， 一50) を 原点とする 次の ような座標軸 
が描かれます. 



グラフで何種類ものデータを扱う場合，何かの方法で類別する必要がありま 
す.その1つの方法として，前に述べた色を変える方法があります. 

これは非常に有効な方法ですが，欠点としてコピーしたとき区別できなくな 
ることです. 

このようなときは，線の種類を変える方法と，棒グラフなどでは，棒の模様 
を変える方法があります. 

① 

L -27 


この プログラムを実行させると，次のような4種類の線を引きます. 

- 実線 

一一一一一一一一 点線 

- —点鎖線 

-二点鎖線 


線の種類を指定する （L コマンド) 


10 LPRINT CHR$(28 〉； CHR$(3 フ） 

20 FOR 1=0 TO 3 
30 し PRINT " し " 5 I 

40 し PRINT m D 20 3 m 3 70 3 l, ； - 1*5 

50 NEXT I 
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3 - 31 


つまり， L の後の©〜 3 の値は，次の意味をもちます. 


'' じ ; 

:⑦ 

. 実線 

; 

;1 

点線 

'' じ ; 

; 2 

. 一点鎖線 

'' じ : 

: 3 

. 二点鎖線 


②点線，鎖線のピッチを変える （ B コマンド） 


L-28 


10 し PRINT CHR$(28) ； CHR$(37) 

20 FOR 1=0 TO10 
30 LPRINT "Ll'^LPRINT "B "； I 
40 LPRINT "D20";" ， " ； -I 木 5;" ， " ； 70; 
I 木 5 

50 NEXT I 


このプログラムを実行すると，次のようなピッチの異なる11本の線を引きま 


t. 


コマンド B で指定した I の値がピッチ（単位：隱）になっており，線の長さ 
はその1/2です.ただし， I が0のときに限り，ピッチは0.5細1となります. 

なお，ピッチは1關以上で 0.2 mm の 刻みで変えることができ， B コマンドの 
指定がないときは， 6.4 mm にセットされます. 
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■縞模様を 描く （ G コマンド） 


L ~ 29 10 し PRINT CHRi(28);CHR$(3 フ〉 

20 FOR 1=0 TO 2 

30 LPRINT l ， n20 "； % "；0 

40 し PRINT "G";I; % ";50; "3";-20 

50 LPRINT "A20";" ， " ； 0;" ， " ； フ 0; n ， u ;-20 

60 LPRINT "H10" 

70 NEXT I 

このプログラムの 40 行に， G コマンドが使われています. 

変数 I は0から2まで変化しますが…… 

0 :無地 
1 :横縞 
2 :縦縞 

……の 3 種類を指定することができます. 

それに続く数値50および一20は，模様を描く範囲（現在のペンの位置から右 
に50隱，下に 20 mm ) を指定しています. 

さらに，その後に「；、'，"；2」を加えると，縞のピッチが 2 mm になります. 
つまり…… 

LPRINT 、' G " ;1; '、， " ； 50 ; '、，" ； -20 : ； 2 

丁 丁 ~ n 丁 

模様の種類 右へ 50 mm 下へ 20 mm 2圓ピツチ 

……となります. 

棒グラフをこのような模様分けをすると，より見易くなります. 

■ ペンを 移動する （ M コマンド） 

前項のブログラム30行に， 「 M 」 という新しいコマンドが出てきましたので 
ついでに説明しておきます. M コマンドは…… 

LPRINT '' M " ； 20 ； ； 0 または '' M 20,®" 

. のように書きますが，これはペンの位置を（20， 0) へ移動せよ，という 

命令です.つまり，移動するだけで何も描きません. 
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■円グラフを 描く （ c コマンドの応用） 

前項までで，折れ線グラフや棒グラフを描く基本を説明したわけですが， 
グラフは初めて出てきますので，説明を加えておきます. 

円を描くのは，すでに述べたように， c コマンドを 使います が， 円グラフ 
データの大きさに応じて，扇形に区切る線を引かねばなりません. 

たとえば，100，200，300，400，500の割合に分割するプログラムを示し 
おきましょう. 


円 

は 


て 


10 し PRINT CHR$C28) ； CHR$(37) 


20 し PRINT -50,3 0" 

30 S=0 ： T=0 

40 FOR 1=1 TO 5：READ A ： T=TtA：NEXT I：R 
ESTORE : A=0 
50 FOR 1 =1 TO 
60 READ A:S=S 十 A 

70 X=48+INTC30*SIN(360*S/T ))： Y=-50+IN 
TC30*COSC 36051 cS/T)) 

80 LPRINT "D48,-50 ， " ； X;"，"；Y 
90 A2=(A1+A)/2 ： G0SUB 200：NEXT I 
95 END 


100 DATA 100 3 200 3 300 3 400 5 500 
200 X=50+INT(20*SIN(360*S/(T+A2 )： 
48 十 IN 丁 （ 20 木 COS(360*S/CT+A2))) 
210 LPRINT "mi0; "，" ；Y 
220 B$=STR$(A) 

230 LPRINT 
240 RETURN 


実行例 



40 行目でデータの統計を求め，60〜70行目で，各データの比率と分割する円 
周上の X ， Y 座標を求めています. 

そして，80行目で求められた X ， Y 点から中心への線を引いています. 
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第 4 章に入る前に 一 

■第4章で解説する各コマンドの「書式」の部分にでて〈る，次の用語に 

ついて，以下に説明しておきます. 

• r 数 式」一 数値，変数，計算式を表わします.計算式では演算子 

の優先順位に従って計算を行ないます. 

籲 「文字式」 一文字定数，文字変数，文字列等を表わします.文字列 
は“+ ”符号により連結することができます.つまり文 
字列のたし算が文字式ということになります. 

〔例〕“ ABC ” + “ DE ” + “ F ” =“ ABCDEF ” 

ただし，+で連結した文字列は，79文字を超えること 
はできません. 

參「変 数 j — 変数はデータを格納しておくものです.データには数 

値と，文字•記号がありますので，変数にも，数値変 
数 （ A ， B …など）と文字変数 ( A $, B $ …"など）の 
2種類があります.詳しくは第3章をごらん下さい. 

籲 「変数名」一 変数は A 〜 Z の英大文字を先頭に，$，数字，英大文 
字などが続いて構成されます. 

〔例〕 A , A $, AB , Al , XY $, Xl $ ……など 
変数名とは，このような変数の形をいいます. 

參 「条件式」 一関係演算子（=，=<，>，<>，など）で，左辺と右辺 
の大小を比較する関係式です. 

• 「行番号」ー プログラムの先頭につける番号のことで，1〜9999の 
範囲で使用できます. 

書 「注釈文」ー プログラムリストを見るとき，内容がわかるように， 
プログラム中の要所要所に書き込んでおくものです. 
プログラムの実行にはいっさい影響しません. 

•「メ ツ セージ」一 人力を正確に，また出力 f わかりやすくするために， 
画面に表示させる文で，“ ”で囲って使います. 

•「ファ イ ル名」ー プログラムやデータを，カセットテープと本体間でや 
りとりする場合，名前をつけた方がわかりやすくなり 
ます.その各前のことをいいます. 
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PB - 70 0$ 舌用法 


第4章 

コマンド•リファレンス 




PB - 700コマンド•文•組み込み関数一覧 


カセツトフア- 
ルの操作 


BASI 〇プログ 
ム入出力 


フプログラムの入力一 LOAD 

」 1- プログラムの出力一 SAVE 
プログラ厶の記録 
確認 


-VERIFY 


プログラムの実行 


-プログラムの実行一 RUN 
■■プログラムの再開一 C 0 NT 


プログラム作成_ 
編集 


j ( プログラムの作成) 一一 


ブログラムエリア 


- PR 0 G 


の指定 

•プログラムの消去一 NEW 

-沉溫“、- 3丫酬 

—変数の初期設定 一 CLEAR 
登録変数.配列変— FRA q F 
数の消去 tMAbt 



プログラムの編集』 


プログラムの削除一 DELETE 
プログラムの保護一 PASS 
—プログラムの表示一 LIST 

プログラム修正行 — FnlT 
の表示 tUM 


ープリンタへの出力一{プログラムの印字)~ 


-しし 1 ST 


-し PRINT 


般 


- i 実行結果の出力 y 


代 入 文）一-変数への代入- LET 


〔データ文>7-データの 入力- 
-データの 設定- 


- READ 
-DATA 


U 認 J 入力位— REST0RE 


f 配 列 文1一配列の変数定義一 DIM 


分岐 • 制御文 


■•無条件分岐一 
ーサブルーチン- 
-条件分岐—— 
—繰り返し制御- 


- GOTO 

- G 0 SUB -RETURN 
- IF .. THEN ." ELSE -' 
- FOR . TO ... STEP/NEXT 


—プログラムの連結一 CHAIN 
-プログラムの停止一 STOP 
-プログラムの 終了一 END 


-( その他の文 ) —注 


釈- 


-REM 


一画面表不 


画面制御文}■-厂画面消去 
- - J L -h — V )\ y \\ 


- C し s 


カーソル位置の制御一 LOCATE 






































































SIN 

COS 

TAN 

ASN 

ACS 

ATN 

ANGLE 

EXP 

SQR 

LOG 

し GT 

ABS 

INT 

FRAC 

SGN 

ROUND 

PI 

RND 


-( 文字列^数値数字文字変換 - STR$ 

- / し文字数値変換 - VAL 

■{文字の抽出)文字列の左の部分 —— LEFTS 

-- —文字列の抜き出し —— MID$ 

1 -文字列の右の部分 —— RIGHTS 

-{ 文字の位置 • 文字数 ) —文字列の長さ - LEN 


\SOII コード- 
-文字変換— 


-ASC 

-CHR$ 


水平位置の指定- TAB 


点の有無- 


- POINT 


出 力 - PUT 

入力 - GET 

ト レースモー ド言 安定一 TRON 
ト レース モー ド 解除一 TROFF 


入 


力一 
文字入力- 


- INPUT 
-INKEYS 


ベル - BEEP 

出 力 - PRINT 

書式制御出力 - PRINT USING 



カセットノアイルへ丨/ 

のデータ入出力文 _ V 


カセットファイル 
ルの入出力 


)r 


ト レース 文 


画面情報 ) — 
書式制御 ) — 


数値関数 


数学関数 


i 

\ 

—ノ 

-I 

-[ 

hf 


f 文字一 ASCII コード} 


-/ 


表示用関数 


文字関数 


組み込み関数 


定 

机又 

弦弦接弦弦接の数根数数値化部号入率^ ■ 

正 S 謹 S 方 _ 
正余正逆逆逆角指乎自常絶整公守3『0^ 
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r マニュアル • コマンド i 

CONT ( continue : コンテイニュー） 


機 能 

stop 文もしくは r ^ i キーにより停止したプログラムの実 
行を再開する 

書 式 

CONT 


プログラムの作成とは，なかなか難しいもので，完壁に思えるプログラムで 
も，最初からこちらの期待通りに動〈というわけにはなかなかいきません•そ 
こで，デバッグを重ねて徐々に完全なプログラムに仕上げていくわけですが， 
そんなとき，この CONT 命令が便利になります. 

CONT 命令は，プログラム中の STOP 命令や,^)キーの操作で，プログラム 
の実行が STOP 状態になっているとき，これを再開するために使うコマンドで 
す.再開は，もちろん STOP コマンドで停止した行の次の文から行なわれます. 


使い方 


プログラムの作成時，デバッグを容易にするために実行の節目に STOP コマ 
ンドを揷人しておきます. 

例えば，次のようなプログラムを作ったとします. 


丄 0 READ R，H 
20 S=PI 木 『2 
30 STOP 
40 U=S*H 

50 PRINT R ， H ， S，U 
60 DAT_ 3 20 
70 END 


このプロ グラムを RUN 命令により実行させますと， 30 行目の STOP コマンド 
により実行を中止して，次のような表示になります • 
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マニュアル•コマンド / CONT 


[ CLS ] 
fSHIFTl マ 


ここで，10行目，20行目の実行内容をチヱックしてみます.そのために，マ 
ニュ アルで 変数を調べて みましょう. R | ENTER 1 , H I ENTER 1 , S I ENTER I で 
変数内容を表示させると，それぞれ10，20，314.1592654が現われ，正しく実 
行されていることがわかります. 

このようにしてチェックが終了したら，続いてそれ以降のプログラムの実行 
に移りますが，ここで CONT 命令を使うわけです. 


このように，40行目以降を実行し，最終結果 V の値を表示して終了します. 
こうして，プログラムを実行単位ごとに STOP 命令で区切り，変数内容をチェ 
ックしていけば，デバッグが非常に容易になります. 

なお， STOP コマンドでプログラムの実行が停止した状態で， EDIT モード 
にしてプログラムの訂正などを行なつた場合は， CONT 命令を使つても再開し 
ません.このようなときは， RUN 行番号で実行を再開して下さい. 

STOP 


6283. 185307 
Ready P (2) 


STOP P 0-3 0 
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n ? ニユアル•コマンド i 

DELETE (delete :デリート） 


機 能 

プログラムを行単位で部分的に削除する 

書 式 

DE し ETE In 

DELETE In - 
DELETE -lm 

DELETE ln-lm 

In :削除開始行 lm :削除終了行 
( l ^ ln ^ lm ^9999) 


このコマンドは，プログラム中の特定の行，または特定範囲の行を削除する 
ために使われます. 

DELETE の使い方には以下のような基本型があります. 

① DELETE 行番号 In ……行番号 In を削除する 

② DELETE 行番号 In — ……行番号 In 以降の行を削除する 

③ DELETE 一行番号 In ……行番号 In 以前の行を削除する 

④ DELETE 行番号 In - lm …行番号 In から lm の間の行を削除する 

ただし， ln，lm には次のような制約があります. 

Q SlnSlm‘9999 

このコマンドは，マニュアルコマンドですから， プログラム中で 使用す る こ 
とはできません. 


使い方 


では，次のプログラムを使って，もう少し詳しく説明してみましよう. 


10 REn DELETE SAMPLE 
20 PRINT 
30 PRINT "30 ： B" 

40 PRINT "40=0" 

50 PRINT 
b0 PRINT ,, 60 ： E n 
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マニュアル•コマンド / DELETE 


70 PRINT ワ 0:P , 

80 PRINT ,, 80 ： G" 

90 PRINT M 90 ： H M 
丄 00 PRINT "END" 

丄 10 END 

m DELETE 行番号 In 

例えば，上のプログラム中，50行目を削除したい場合には，次のキー操作で 
可能です. 

DELETE 50 或 

なお，これと同じことが，次の操作でもできます. 

50 』 

[2 DELETE 行番号 In — （一: ハイフンは，マイナスキーを使う） 

先のプログラムで，70行目から最後までを削除したい場合，次のキー操作を 
行ないます. 

DELETE 70 - 或 

また， 

DELETE 65 -逆 

でも同様に，70行目以降を削除してしまいます.つまり，65行目がない場合 
には，それ以降で最も近い行番号70から削除を行なうというわけです. 

国 DELETE -行番号 lm 

これは， S とは逆に行番号 lm 以前を頭から削除するものです.例えば次のキ 
—操作を行なって下さい. 

DELETE 一 40 過 

L ^ H . IFT 1 iirn ^] でリストを見てみますと，1〇〜40行目が削除され ている は 
ずです.なお，次のようにしても，全く同じ結果が得られます. 

DELETE — 42 或 
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[4] DELETE 行番号 In- 行番号 lm 

先のプログラムで， 30 行目から 60 行目までを削除する場合，次のキー操作を 
行ないます. 

DELETE 30 - 60 過 


この場合， hi と lm を逆にして，次のような操作をすると，プログラム全 
体をこわしてしまいますので十分注意が必要です. 

DELETE 60-30^] …… プログラムがこわれます 


■パ スワード付のプログラムには使用できません. 

DELETE コマンドは， PASS コマンド（148ページ 參照）によって ロック 
されている プロ グラムに対しては， PR エラーを表示して実行されません. 

■行 番号に小数部を含む場合は， SN エラーとなり実行されません. 

new , new all 
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EDIT (edit •• エディット） 


機 能 

プ ログ ラムを修正可能状態にする 

書 式 

EDIT 

EDIT In (0 ^ln^9999) 




EDIT コマンドはプログラムの削除，追加，訂正など，いわゆる編集をすると 
きに使うものです. 

EDIT g で，プログラムの先頭の行が表示され，末尾にカーソルが現われま 
す.このカーソルを匚5]， S , [SHIFT1 [SHiFT] +で訂正した 

い個所に移動し， [ DEL \, [ SHIFT ] [ -^ ri で修正を加えていきます. 

■編集 用キーの使い方 

① C 3， CE ] ……カーソルを左右に移動.押し続けるとリピート機能に 
よってディスプレイの左端から，行末尾の間をカーソ 
ルが走ります. 

©[ SHIFT ] ，- 4 -n •••シフトキ ーと カーソル キーの 同時押しに よって， 力一 
I SHIFT 1ソルを上下に移動することができる. 

③ IME ). カーソルのある位置の文字や記号をひとつ削除し，そ 

の間をつめる. 

® LshiftJ r ^ ri …カーソルのある位置と，その直前の文字や記号の間を 
1文字分あける. 


使い方 


では，次のプログラムを人力して，実際に編集をやってみましょう. 


10 PRINT "HEIKIN 
20 INPUT A ， B，C 
30 H=(A+B+C)/3 
40 PRINT H 
50 GOTO10 
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m プログラムリストを最初から見たいとき 

プログラムリストを最初から表示させ，1行ずつ訂正を加えていく場合は， 
次の使い方をします. 

EDIT ぼ 

続いて^]キーを押すと，行番号の若い順に次つぎとリストを表示します. 

m 行番号の若い方へ，逆にさか昇ってリストを見たいとき 

先のプログラムで，先頭から50行目までをリストアップした状態で，もう一 
度10行目を見たいといった場合，次の操作をします. 


50行目までを表示した状 

態 

20 INPUT A ， 巳 ， C 

30 H = (A + B + C ) /3 

40 PRINT H 

50 GOTO 1 0 - 

▲ 

0 

(SHIFT 1(^1 を4回操作 

40 PRINT H 

すると，右のように19行 

30 H = (A + B + C ) /3 

目を表示する. 

20 INPUT A , 巳 ， C 


10 PR 丨 NT “H E 1 K 1 N ”_ 


S 1 プログラムの途中の行番号から見たいとき 

プログラムの途中の行番号のリストを見たいときは，次のようにします. 

EDIT 行番号 ln _ 

この 行番号 In は，もちろんリストした行の番号です.以後，^]キーを押すご 
とにそれ以降の行を表示します. 


a s , ra , m の使い方 
先のプログラムの20行目と30行目を，次のように訂正します. 

20 INPUT A ， 巳， C，D 
30 H = (A +B + C + D )/4 
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2 0 INPUT A ， 巳， C，D 
30 H = (A + B + C )/3 


EDIT _ で 20 行目のリストをとると，画面は次のようになります. 


[SHIFT] rl'^ 20 函 

L _ IT - 


20 行目は，これに 続いて“，”と D を入力し^] キーで 訂正終了です • _キ 
一と同時に30行目が表示され，画面は次のようになります. 


□回過 


続いて，30行目に “+ D ” を挿入する操作は， 

ra CE ] S [ SHIFT ] で2つ分のスペースをあけ 

同時押し 

田回 !: srais 

です. 

■パスワードの付いたプログラムに EDIT コマンドを用いると， PR エラーと 
なります 

■エディツ トモードの解除 

エディットモードは，次のような場合に解除されます. 

① fBRKl キーを押したとき 

② fCLSl キーを押したとき 

③ 誤って エラー 操作をしたとき 

④ 表示すべきプログラムがなくなった場合 

⑤ 電源を，改めて OFF — ON したとき 


0 

P 0 
2 

y 

d T 
a I 
e D 
RE 


c 

B ， 

A ， 


u 

0 p 
PON 
2 I 

y 

d T 0 
a I 2 
e D 
RE 
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し IST/ しし 1ST 


/list :リスト 
\ l - list : エルー リスト 


機 育巨 

LIST :指定されたプログラムをディスプレイに出力する 
LLIST :指定されたプログラムをプリンタで打ち出す 

書 式 

し 1 ST (しし 1 ST ) 

し 1 ST (しし 1 ST ) A しし 
し 1 ST (しし 1 ST ) V 
し 1 ST (しし 1 ST ) In 

LIST ( LLIST ) In - 
LIST ( LLIST)」n 

LIST ( LLIST ) ln_lm 

( lSln ‘ lm ‘9999) 


■茂 

LIST, LUST コマンドは， PB -700 に現在記憶されているプログラムのリス 
卜を見る際に使うものです. LIST は画面に， LUST はプリンタを通してロール 
ペーパーに印字するという形で，それぞれ表示されます. 

また，プログラムリストだけでなく，現在プログラム中で登録変数という形 
で使用している変数（登録済変数）も，リストアップすることができます. 


使い方 


LIST, LUST コマンドには，次のような使い方があります. 

① LIST (LUST) ……現在指定されているプログラムエリアのプロダラ 

ムをリストアッブする 

② LIST (LUST) ALL …… P0 〜 P9 に入っているプログラムを全て 

リストアップする 

③ LIST (LUST) V ……登録済変数をリストアップする 

④ LIST (LUST ) 行番号 ……現在指定されているプログラムエリアのプ 

ログラムの，指定行番号のみリストアップする 
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⑤ LIST ( LUST ) 行番号一 ……現在指定されているプログラムエリア 

のプログラムの，指定行番号以降のプ 
ログラムをリストアップする. 

⑥ LIST ( LLIST ) 一行番号 ……現在指定されているプログラムエリア 

のプログラムの，指定行番号までのプ 
ログラムを全てリストアップする 

⑦ LIST ( LLIST ) 行番号 n -行番号 m ……現在指定されているプログラム 

エリアのプログラムの行番号 
n から m までをリストアップする 
では，次のリストを人力して， LIST , LUST コマンドの使い方を見ていく 
ことにしましよう. 


10 PRINT "HEIKIN" 

•20 INPUT "B^'SCDj "C= n j A1 

30 Dl= ⑽十 CD 十 Al)/3 
40 PRINT D1 
50 GOTO10 

※このリストは 、 LIST V の使い方をみるために，変則的ではあるが登録変 
数を使用している 


Q ] し 1 ST (しし 1 ST ) V 

これは，現在使用している登録変数や配列変数を全てリストアップするもの 
です. LUST V _でプリントアウトさせると，先のプログラムで使った登録 
変数を次のように打ち出してきます. 

A 巳 CD R1 D1 

また，登録変数以外に DIM コマンドで宣言した配列変数についても，その配 
列変数名を表示します. 
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H ] し 1 ST (しし 1 ST ) A しし^] 

PB — 700 には， P0 〜 P9 までのプログラムエリアがあり，それぞれに独立し 
たプログラムを入力することができます. 

これは，全プログラムエリアのプログラムをいちどに表示させたいときに， 
使います. 

LLIST ALL で実行させてみると，下のようにリストをプリントアウ 

卜します.このように，行番号の小さいものから順に印字し，また，必ずプロ 
グラムェリアも印字するようになっています. 


P0 10 PRINT "HEIKIN" 

20 INPUT "A=" ， AB ， "B=" ， CD ， "C=",A1 
30 Dl=CAB+CD+Al)/3 
40 PRINT D1 
50 GOTO10 

[3] し 1 ST (しし 1 ST ) g 

これを実行すると，現在指定されているプログラムエリアのプログラムを， 
行番号の小さいものから順に，全て表示（印字）します. 

E LIST ( LUST ) 行番号 _ 

LIST に続いて行番号を指定すると，現在指定されているプログラムエリア 
の，その行番号のプログラムを表示（印字）します.例えば PROG 0』で， 
LIST 30』を実行すると， 

30 D 1 = (AB + CD + A 1)/3 
が表示されます. 

S LIST ( LLIST ) 行番号一ば] 

行番号の次に一（マイナスキーで入力する）をつけると，その行番号以降の 
プログラムを順に表示（印字）します.例えば， LIST 30—^]を実行すると 

30 D 1 = (AB + CD + A 1)/3 
40 PRINT D 1 
50 GOT 0 10 

を表示します. 
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[6] LIST ( LUST ) 一行番号 

行番号の前に一をつけると，その行番号までのプログラムを頭から表示（印 
字）します.例えば， LIST — 30_ で 
10 PRINT “HEIKIN” 

20 INPUT “A 二”， AB, “B = ” ， CD, “C = ” ， A1 
30 D1=(AB + CD + A1)/3 

を表示します. 

[7] LIST ( LUST ) 行番号 n —行番号 m 

この場合は，行番号 n から m までの間のプログラムを表示します•プログラム 
は，行番号の小さい方から順に表示（印字）されますから， nSm でなければな 
りません.例えば， LIST 20 — 40(^) で 

20 INPUT “A 二，，, A 日， “B = ”, CD, “C = ，’， A1 
30 D1=(AB + CD + A1)/3 
40 PRINT D1 
を表示します. 



[ I ] LIST , LIST ALL の実行を中断する 
前述の LIST コマンドの使い方でプログラムリストをとると，ディスプレイ 
には次から次へとプログラムがめまぐるしく現われ，そのためにじっくりと内 
容を確認するというわけにいきません. 

そこで，表示を一時ストップさせるためには^]キーを押します.するとも 
う一度^]キーが押されるまで，表示はストップした状態になります. 

なお， LIST コマンドの実行は dB ^ TJr ^ i では停止状態にはなりません. 
また，途中でプログラムリストを見る必要がなくなった場合には，1 BRK | キ 
一を押すと LIST , LIST ALL 状態から抜け出すことができます. 

H ] LLIST , LUST ALL からの抜け出し 

LUST , LLIST ALL でプリンタにプログラムを打ち出している場合 
には，^)キーによる一時中断はできません.可能なのは | BRK 丨 キーによって 
プリントアウトを中止し， LUST 状態から抜け出すことだけです. 
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LOAD (load : ロード ) 


機 

能 

カセットテープに記録してあるプログラムを，本体に読 

み込む 

蚩 

式 

LOAD 
し〇 AD A しし 
し OAD，A 
し〇 AD，M 




LOAD 命令は， SAVE 命令によって，カセットテープに記憶したプログラム 
を，再び PB — 700に読み込むときに使うコマンドです. SAVE するときにつけ 
たファイル名が役立つのは，このときです. LOAD コマンドとともにファイル 
名を入力すると， PB -700 がそのファイル名を自動的に探し出し，テープから 
プログラムを読み込みます. 

ファイル名を指定しない場合は，最初に見つけ出したプログラムを読み込み 
ます. 

LOAD コマンドの形式には，次のものがあります. 

(DLOAD . 現在指定されているプログラムエリアに， SAVE または S 

AVE “ ファイル名 ’’ の形式で記録されたプログラムのうち， 
最初に見つけ出したブログラムを読み込みます. 

この場合， SAVE 時のプログラムエリアと，現在指定され 
ているプログラムエリアが異なっても，問題はありません. 

(2) LOAD “ ファイル名 ” 

現在指定されているプログラムエリアに，同じファイル名 
で SAVE されているプログラムを探し出し，読み込む.こ 
の際， SAVE 時と LOAD 時のプログラムエリアは異なっても 
良い. 

(3) L0AD ALL---SAVE ALL 形式で記録されたプログラムを，それぞれ同じ 

プログラムエリアに読み込む.ファイル名を付けないので， 
SAVE ALL 形式で記録されたプログラムのうち，最初に見 
つけ出したものを読み込みます. 
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(4) L0AD ALL “ ファイル名 ” 

SAVE AL じ ‘ ファイル名 ” で記録したプログラムのうち， 
同じファイル名のものを探し出し ， PB — 700に読み込む. 

(5) L0AD, A/LOAD “ ファイル名 ”， A 

アスキーコード方式 （ SAVE ， A または SAVE 41 ファイル名，’ 

， A ) で記録されたプログラムを ， PB — 700に読み込みます. 
ファイル名がない場合は，最初に見つけ出したプログラム 
を，またファイル名がある場合には，同じファイル名のも 
のを探し出して読み込む. 

(6) L0AD, M/LOAD “ ファイル名 ”， M 

SAVE, A または SAVE “ ファイル名 ”， A で記録されたプ 
ログラムを読み込むものです. 

同様のものに LOAD，A LOAD “ ファイル名 ”， A があり 

ますが，これとの違いは，行番号さえ異なれば，古いプロ 
グラムも消えずに残るということです.これについて以下 
に説明しておきます. 


リスト C 
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•通常， LOAD すると，同時に NEW の機能も働き， 
前の プログラムは そっくり消えてしまう.しか 
し LOAD ， M を使うと，行番号さえ異なれば，前 
の プログラム も消えずに残って いる. 


30 PRINT C 
40 GOTO 100 
100 D = C /2 
110 PRINT D 
120 GOTO 10 


使い方 


□] SAVE 時の形式と同じ形式のもの以外 LOAD しない 
SAVE で記録したものは LOAD で， SAVE ALL で記録したものは LOAD A 
LL でというように，同じ形式で対応しています.以下， LOAD 可能なものの組 
み合せを示します. 



LOAD 

LOAD "7 

アイル名” 

LOAD 

A しし 

LOAD ALL 

"ファイル名" 

し OAD A 

LOAD "ファ 
ィル名"， A 

L0AD.M 

LOAD “ファ 
ィル名”， M 

SAVE 

〇 

X 

X 

X 

X 

X 

X 

X 

SAVE 

“ファイル名” 

〇 

〇 

X 

X 

X 

X 

X 

X 

SAVE A しし 

X 

X 

〇 

X 

X 

X 

X 

X 

SAVE A しし 
“ファイル名” 

X 

X 

〇 

〇 

X 

X 

X 

X 

SAVE, A 

X 

X 

X 

X 

〇 

X 

〇 

X 

SAVE 

“ファイル名"， A 

X 

X 

X 

X 

〇 

〇 

〇 

〇 


[2) パスワードについて 

パスワードのついたプログラムを SAVE すると，パスワードそのものも同時 
に記録されます.このようなプログラムを LOAD する場合についてまとめます. 

① PB — 700本体にパスワードがついていない場合は， LOAD が可能.この 
場合， LOAD したパスワードが，そのまま PB — 700のパスワードとして 
生きてきます. 

② PB — 700本体に， LOAD するプログラムについているパスワードと同じ 
ものがついている場合，そのまま LOAD 可能.この場合にもパスワード 
は生きています. 

③ PB - 700本体のパスワードと， LOAD するプログラムのパスワードが異 
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なる場合には，読み込み開始と同時に PR エラーを表示して，カセット 
テープが止まって しまいます. 

\ 3 \ LOAD 中のエラーについて 

① RW エラー 

これは， LOAD 中に パリティー エラー が 発生したときに起こるもので 
すが，この場合には NEW _でそれまでに LOAD したプログラムを消し， 
再度 LOAD し直します. 

② 0 M エラー 

これは，メモリー容量が不足したときに発生します.この場合には， 
不要なプログラムを消すか， RAM を増設しなければなリません. 



SAVE VERIFY CHAIN PUT GET 
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NEW/NEW A しし 


/new :ニュー 、 
\new all :ニューオールノ 


機 能 

プログラムの消去 

書 式 

NEW 

NEW A しし 


新しくプログラムをコンピュータに入力する際は，前もって先に入っている 
プログラムを消しておく必要があります.このようにプログラムを消去するた 
めの コマン ドカぐ NEW/NEW ALL です. 

m NEW コマンドの機能 

NEW コマンドは，現在指定されているプログラムエリアのプログラムを消去 
します.ですから，消したいブログラムのエリアを PROG コマンドで指定し， 
NEW を実行します. NEW コマンドは，パフ、ワード （ PASS の項148ページ参照） 
のつ いている状態で実行すると PR エラーを 表示し，受けつけて く れません. 

また，変数のクリアを行なうことはできません .（ CLEAR の項160 ページ 参照) 

E NEW ALL コマンドの機能 

NEW ALL コマンドは，全プログラムエリアのプログラムを，一度で消去し 
てしまうものです.このコマンドは， PASS コマンドの実行状態でも有効です 
ので，使用するときは十分な確認が必要です. 

また，プログラムだけでなく，変数も全てクリアし，初期状態に戻してしま 
います.つまり 

① 数値変数を全てクリアして9にする 

② 文字変数を全てクリアして、'"(ヌルストリングス）にする 
⑧登録変数は全て消去される 

④ DIM 命令 （ DIM の項162ページ参照）による配列宣言を解除する 

さらに，プログラムエリアを0に設定し直し， ANGLE も0,つまり DEG (デ 
グリー）に設定される. 
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このように ， NEW ALL は全ての RAM 内容を，初期の状態に設定し直すとい 
う働きがあります. 


使い方 


NEW , NEW ALL とも，プログラム中で使うことはできません.使用する場 
合は，直接キー人力で 

NEW 』 または NEW ALL @ 

とします. 
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PASS (pass :パス) 


機 能 

プログラムにパスワ ー ドをつけてプログラムを保護する 

書 式 

PASS 、'パ スワード" 


やっとの思いで作り上げたプログラムも，誤って消してしまったり，他のプ 
ログラムを書き込んでダメにしてしまう，といったことが起りがちです.また 
他の人が勝手に消してしまうといったことも，ままあることです. 

そこで，大切なプログラムに鍵をかけて，修正や消去ができないようにする 
のがこのコマンドです. 


使い方 


[D PASS コマンドの使い方と機能 

PASS コマンドは，次のようにして使います.なお，プログラム中では使え 
ません. 

PASS “8 文字以内のバスワード”』 

これで，プログラムの修正，消去は PASS コマンドを 解除しない限りいっさ 
いできなくなります.実際には次のコマンドが実行できなくなります. 

① DELETE 

② EDIT 

©し 1 ST , しし 1 ST 

④ NEW 

新たにプログラムを書き込むことも不可能です.このように， PASS コマ 
ンドは，全プログラムエリアに有効に働きます.逆の言い方をすれば，特定の 
プログラムエリアに限って， PASS コマンドを働かせることはできません. 

PASS 命令が入っているときに，上記のコマンドを実行すると， PR エラー 
を表示してそのことを知らせてくれます • 

囡 PASS コマンドの解除 
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マニュアル•コマンド / PASS 


パスワードは， 8 文字以内の文字，数字，記号を使うことができます.これ 
を解除するには，もう一度，全く同じパスワードを使って 

PASS w 8文字以内のバスワード〃』 

を入力すれば解除されます.ですから，最初に入力したパスワードを忘れて 
しまうと，永久に PASS 命令を解除することはできないことになります.も 
ちろん，パスワードを見ることもできません.そこでパスワードは，自分の名 
前など絶対に忘れないものを使うようにします.また入力するときに十分確認 
することも大切です. 

万一，パスワードを忘れてしまったり，自分が考えているパスワ-■ドが通用 
しないような場合は，やむを得ない手段ですが，電池を外すかまたは NEW 
ALL コマンドを実行する以外に方法はありません.しかしその場合は，全プ 
ログラムエリアのプログラムが消えてしまいますので， SAVE コマンドによ 
ってカセットテープ'に記録しておくことも必要になってきます. 

通 SAVE , LOAD , NEW 
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P ? ニユアル•コマンド 1 

PROG (program :プログラム） 


機 育 g 

使用したいプログラムエリアを指定する 

書 式 

PROG 数値（または数式） 0 S 数値（数式）<10 


1 — 

PB — 700には，独立したプログラムを書き込むことができる， P 0 〜 P 9 まで 
の10個のプログラムエリアがあります. 

このプログラムエリアを指定する場合に，この PROG コマンドを使います. 


使い方 


まず ， PB — 700の電源を ON にしてみて下さい.するとディスプレイには次の 
ように表示されます. 

電源 ON r e a d v P 0 


このように，電源を ON にすると，プログラムエリアは自動的に P 0に指定さ 
れます.では続いて，プログラムエリア P 9 を指定してみましよう. 


電源 ON 

Ready 

P 0 



PROG 

9 


1 ' — T__ 」 

Ready 

P 9 



以上で指定は終了で，プログラムエリア P 9が人力待ちの状態となりました. 
なお， PROG に続いて数式を入れてもかまいませんが，計算結果（ X とする 
と）が0 SXC 10 の値をとるようにしなければなりません.この範囲を越える 
場合は， BS エラーを表示します. 

(例） PROG (100/20) ― >PROG 5 で P 5 を指定 
PROG (100/10) — ^BS エラーを表示 
PROG (100/15) ^ > P 6 を指定レト数剖^は切り捨てられる） 
GOTO , GOSUB 
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厂 7 ニユアル•コマンド 1 

RUN (run :ラン） 


機 能 

プログラムを実行する 

書 式 

RUN 

RUN 行番号 （ 0 S 行番号 $9999) 


現在指定されているプログラムエリアのプログラムを，実行するためのコマ 
ンドカぐ RUN です. 


RUN コマンドは，次の2通リの使い方ができます. 

① RUN . 現在指定されているプログラムエリアの，先頭の行 

番号から実行を開始します.実行は，行番号の小さ 
い順に行なわれます. 

② RUN 行番号^) -RUN の後の行番号から実行を開始します.指定した 

行番号がない場合は，その行番号に最も近く，かつ 
指定行番号より大きな行から実行をスタートします. 

なお，各プログラムエリアのプログラムの，先頭から実行を始めたい場合に 
は， RUN コマンドを使わないで行なう方法があります.それは 

[shU] 7] ~ 1511 

というやリ方です.つまり， ISHIFTI キーと阳〜 ITI のテンキーとの同時押しに 
より， P 0 〜 P 9 のプログラムを実行させることができるのです. 
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ニユアル•コフンド] 


SAVE (save :セーブ) 


機 能 

プログラムをカセットテープに記録する 

書 式 

SAVE 

SAVE ALL 

SAVE , A 

SAVE “ファイル名” 

SAVE ALL “ファイル名” 

SAVE “ファイル名 ”， A 


苦労して作ったプログラムは，カセットテープにとって保存し，自分のプロ 
グラムライブラリーを作るのもまた楽しいことです. 

SAVE コマンドは，カセットテープにプログラムを記録するときに使うもの 
です.このコマンドの形式には次のものがあります. 

( 1 ) SAVE . 現在指定されているプログラムエリアのプログラムを， 

バイナリーコード（内部コード）形式で記録する. 

(2) SAVE ALL …全てのプログラムエリアのプログラムを，バイナリーコ 

ード形式で記録する. 

⑶ SAVE , A ……現在指定されているプログラムエリアのプログラムを， 
アスキーコード形式で記録する. 

#アスキー コー ド形式での SAVE は，バイナリー コー ド形式に比べ時 
間も長く，カセットテープの消費量も多くなるのですが， LOAD , M 
(LOAD コマンドの 項参照）を実行させるためには，このア スキー 
コード 形式でのセーブが必要になります. 


使い方 


実際にカセットテープにプログラムをセーブする場合には，それぞれ「ファ 
イル名」をつけておきます.というのは複数のプログラムを整理したり，再び 
カセットテープから PB — 700にプログラムを読み込むとき，大変便利だからで 

す. 
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マニュアル•コマンド/ SAVE 


II ファイル名は，次のようにつける. 

SAVE “ファイル名” 

SAVE ALL “ファイル名” 

SAVE “ファイル名”， A 

•このファイル 名には，どんな文字，記号を使ってもかまいません 
が，必ず 8 文字以下でなければなりません. 

•パスワードがついたプログラムは，パスワード自身も同時にデー 

夕として出力されます. 

m テープカウンタの数を記録する 

カセッ ト テープレコーダーを 録音状態にして^] キーを 押すと録音が開始さ 
れ，終了するとリモート機能により テープは 自動的に止まります.ここで，録 
音開始と終了を テープ カウンタの数で記録しておいて下さい.次の プロ グラム 
を 読み込む際に，大変便利です. 

m 正しく記録されたかどうかの確認 

カセットテープへの録音が正しく行なわれたかどうかを ， VERIFY コマンド 
( VERIFY の項 155 ページ参照）を使って確認して 下さい. 正しく記録されて 
いなければ，再度録音し直して下さい. 

^ファイルの属性 

SAVE または PUT したプログラムデータは， LOAD , GET で本体に読み込むと 
き，そのファイルの属性名を表示します.この属性は， SAVE や PUT のやり方で 
決められます. 


出力時の操作 

人力時の表示 

出力時の操作 

人力時の表示 

SAVE 

PF B 

SAVE ALL 、 'ABC" 

ABC 

AF B 

SAVE A しし 

AF 巳 

SAVE ''ABC", A 

ABC 

PF A 

SAVE, A 

PF A 






PUT A 


DF A 

SAVE 、、 ABC" 

ABC PF B 

PUT 、、 ABC" A 

ABC 

DF A 


このように，ファイル名はそのまま表示されますが，以下，ファイルの属性を 
示す部分について説明しておきます. 


〔入力時の表示〕 

P 巳-700 PF B 

ファイル名 ㊇⑧ © 

® P : Program ⑧ File © B : Binary (内部コード形式) 

A : All program A : Ascii (アスキー） 

D : Data 
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マニュアル•コマンド 


SYSTEM (system : システム） 


機 能 

プログラムエリアの使用 状態，残り Byte 数， 設定 アング 

ルを表示する 

書 式 

SYSTEM 




SYSTEM コマンドは， PB — 700のプログラムエリアの使用状態を表示させる 
ためのものもです. 

まず， SYSTEM と人力してみて下さい.もし， PB — 700にプログラム 

が何も人っていなければ，ディスプレイには次のように表示されるはずです. 

P 0123456789 

2864 巳 ytes:ANG し E 0 

Ready P 0 

このような表示を出すために使うのが， SYSTEM コマンドです.ではこの 
表示は，何を意味しているのでしょうか. 

(1)1 行目の P 0123456789 は， P 0 〜 P 9 のプログラムエリアに， 
プログラムが書き込まれているかどうかを表示しています. 

例えば， 10 PRINT “CASIO PB — 700” 逆と入力してみて下さい. 
[SHIFT 


となります.つまり，プ 
を知らせます. 

(2) 2 ffgc 7)2846 Bytes ( i , 使用可能な残りバイト数の表示です•なお，こ 
の数値は RAM パックの増設により異なリます. 

( 3 ) 2 行目の ANGLE 0は，設定角度モードです.電源を ON した直後には， 
ANGLE 0で DEG (デグリー）に設定されます. 

⑷3行目の Ready P 0 は，プログラムエリア P 0 に人力可能な状態を示して 
います.電源 ON 直後はいつでも P 0 に設定されます. 


P VI23456789 

2846 Bytes : ANG し E 0 

Ready P 0 

ログラムが書き込まれている場合，¥でそのこと 
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厂7ニユアル•コマンド丨 

VERIFY (verify :ベリファイ） 


機 能 

カセットテープに SAVE したプログラムゃ PUT したデー 

夕のパリテイチエックを行なう 

書 式 

VERIFY 

VERIFY “ フアイノレ :! 

B ” 


_通麵テ ■ 

SAVE 命令によってカセットテープに記録されたプログラムや PUT 命令によ 
り記録されたデータが，正しく記録されているかどうかを調べるのが VERIFY 


コマンドです. 

■このコマンドの形式には，次の2通リがあります. 

① VERIFY ……カセットテープを回しながら，最初に見つけたプログラ 

ムをチェックする 

② VERIFY “ファイル名，’ 

……カセットテープを回しながら，同じ ファ イ ル名のブログ 
ラムを探し出し，チェックを行なう 

■ SAVE コマンドの6つの形式 （ SAVE の項参照）で記録されたプログラム 
について，全て VERIFY ^) または VERIFY “ファイル名”^]でチェッ 
クを行ないます.つまり， SAVE の形式を指定する必要はありません. 

■ SAVE が正しく行なわれていない場合は， RW エラーを表示します.その場 
合は，もう一度 SAVE をしなければなりません. 


使い方 


次に，実際の手順をまとめておきます. 

手順1:テープの巻き戻し一 SAVE コマンドで記録したテープを，カウンタ 
を利用して最初の位置に戻す. 

手順2 : VERIFY 命令を入力するーファイル名があれば VERIFY “ファイ 
ル名”^]，なければ VERIFY ^ 

手順3 :カセットテープレコーダの PLAY ボタンを 押す.チェックが始ま つ 
たら PF B，AF B，PF A (153 ページ 参照）のいずれかを表示する. 
正しく SAVE されていれば， Ready P 0 〜 P 9 を表示してカセット 
も止まる.誤りがあれば RW エラーを表示して，カセットも止まる. 
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rr □グラム•コマンド i 

ANGLE (angle : アングル） 


機 能 

角度単位の設定 

書 式 

ANGLE 数式（0‘数式<3) 


日常，角度の単位は30°，60°などの使い方をしますが，これは DEGREE (ディ 
グリー）と呼ばれる角度の単位です.数学では，これ以外に RADIAN (ラジア 
ン）， GRADIENT (グラディエント）の使用頻度が多くなりますが， PB— 700はそ 
のいずれにも対応できます. 

ANGLE コマンドは，次の3つの角度単位を指定•変更するときに使うものです. 
©DEGREE ……(例)45°，90° 〈入力範囲 x> —5400 く x<5400 

② RADIAN ……（例） 0.5;r，2;r 〈人力範囲 x> -30^- く x<30;r 

③ GRADENT …•（例)300，1000〈人力範囲 x> —6000 < x <6000 
以上3つの角度単位の関係は，次の通りです. 

360 DEG (=360。）= 2 ; rRAD = 400 GRA 


ANGLE コマンドを使った角度単位の指定方法は，以下の通リです. 

ANG し E 0 — ^DEGREE を指定 
ANG し E 1 — >RADIAN を指定 
ANGLE 2 — >GRAD 旧 NT を指定 

電源を ON にした直後は ANGLE 0 の状態，つまり DEGREE に指*定されて 
います. 


グラム 


10 

REN 木 ** ANGLE 

木木末 

このプログラムは ， 3 

20 

ANG し E 

0：PRINT 

SIN30 ； 

つの角度単位で SIN の 

30 

ANGLE 

1:PRINT 

SIN(PI/6); 

値を表示させるプログ 

40 

50 

ANGLE 

END 

2：PRINT 

SINC100/3) 

ラムです . 

全て 0.5 となります . 
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REM m BEEP 木木* 

IF INKEV$= I,M THEN 110 
IF INKEV^JW THEN BEEP 0 
IF INKEY $="1" THEN BEEP 1 
GOTO 110 


BEEP (beep :ビープ) 


PB — 700 には，ブザー機能がついています•このブザーを鳴らす命令が BEEP 
です. 

ブザー音の利用法は いろいろ ありますが，例えば実行に時間がかかる プログ 
ラムでは，実行の終りの部分に BEEP 命令を入れておけば，ブザーで実行終了 
を知らせてくれます.また，ゲームではこれを使うことにより，楽しさが倍増 
します. 

巳 EEP コマンドの形は，次の3通リです. 

① BEEP ……比較的低いブザー音を発生する 

② BEEP 0… BEEP と同じ音を発生する 

③ BEEP 1…やや高いブザー音を発生する 


このプログラムは， を押す と低いブザー音が， Q ] を押すと 高い方のブザー 
音を鳴らせるプログラムです. 


フ□グラム•コマンド1 


機 

能 

ブザー音を発生する 



BEEP 

奎 

式 

BEEP 0 



BEEP 1 


サンプル • プ 


0 0 0 0 0 
0 12 3 4 

IX 4—^ IX IX IX 
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厂プ□グラム•コマンド 1 

CHAIN (chain :チェイン） 


機 有巨 

指定プログラムを LOAD して，先頭行番号より実行する 

書 式 

CHAIN 

CHAIN “ファイル名” 


プログラム実行中に CHAIN 命令が出てきたときは，そこでプログラムの実行 
を中止し， CHAIN 命令で指定されたファイル名のプログラムを，マイクロカセ 
ットから LOAD して，その先頭から実行します. 

ファイル名がない場合は， SAVE または SAVE “ファイル名”で記録された 
プログラムのうち，最初に見つけ出したものを LOAD します. 

CHAIN コマンドの形は，次の2通りがあります. 

① CHAIN . 最初に見つけ出した PFB ( SAVE , SAVE “ファイル 

名”で記録したプログラム）を LOAD し実行する. 

② CHAIN “ファイル名” 

. 指定されたファイル名の PF B を LOAD して実行する. 

■現在 指定されたプログラムエリアに LOAD しますので，現在人っているプ 
ログラムは NEW されてしまう. 

■SAVE ALL , SAVE ， A で記憶されたプログラムは， CHAIN コマンドでは 
読み込みはできない. 

■ LOAD するプログラムにパスワードがついている場合は，そのパスワード 
も読み込む. 

■ CHAIN が実行されても，変数はクリアされない. 


使い方 


リスト1〜3を，プログラムエリア P 1 〜 P 3 に入力し，カセットテープに記 
録して下さい. 

く リスト1 > …… 円の面積を計算するプログラム 
く リスト2> …… 三角形の面積を計算するプログラム 


158 














プログラム • コマンド / CHAIN 

く リスト 3> ……四角形の面積を計算するプログラム 
さらに，〈リスト〇> を P 0に入力して実行して下さい.〈リスト0> は， 
70 〜 90 行目の CHAIN コマンドで，〈リスト 1 > 〜〈リスト 3 > のそれぞれを選 
択し， PB — 700 に読み込み，計算を実行します. 

tlWMMM 

10 REfl CHAIN PRO.0 

20 CLS : PRINT "flENSEKI KEISAN" 

30 PRINT "1";CHR$(180);CHR$(221);" 2 

M ； CHR$(187) ； CHR$(221) ； CHR$ (182) ； CHR$(184 
)； 

4 0 PRINT M 3" ； CHR$(188) ； CHR$(182)；CH 
R$C184) 

50 PRINT "SELECT NO. " 
b0 BB$=INKEY$:IF UAL(BB$)>3 THEN 60 E 
LSE IF UAL(BB$)<1 THEN 60 
70 IF BB$= M r' THEN CHAIN "PRO.1" 

80 IF BB$="2" THEN CHAIN "PRO,2" 

90 CHAIN "PRO.3 M 





vjKMmw 

mWMWM 


10 REM PRO ,1 

20 PRINT " HANKEI "; 
30 INPUT RR 

40 S = PI * RR A 2 

50 PRINT S 

60 END 

10 REM PRO .2 

20 PRINT " TAKASA "; 

30 INPUT HH 

40 PRINT " TEIHEN "; 
50 INPUT しし 

60 S = HH 束しし/ 2 

70 PRINT S 

80 END 

10 REfl PRO . 3 

20 PRINT " TATE "; 

30 INPUT HH 

40 PRINT " YOKO "； 
50 INPUT しし 

60 S = HH 木しし 

フ 0 PRINT S 

30 END 
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rj □ヴラム•コマンド i 

咖 CLEAR _ (clear : クリァ - ) 


機 能 

全ての変数をクリアする 

書 式 

CLEAR 


—a 

CLEAR コマンドは，全ての数値蛮数，文字蛮数をクリアするための命令で 

す. 

数値変数は0に，文字変数は“”（ヌルストリング）になります.また同時 
に，プログラム中で登録した登録変数は，その登録が抹消されますし，定義さ 
れた配列変数も，その定義を解除してしまいます. 

さらに， FOR ネスティングのスタックもクリアされますので， FOR 〜 NEXT 
ループを続けることができなくなります. 


使い方 


下の左の プロ グラムはデータの総和とデータの個数を集計して表示するもので 
すしかし，いったん dgs キーを押して，もう一度このプログラムを実行さ 


せると，変数 s ， N に1回目の数値がそのまま人っているのでつまくいきませ 
ん.そこで，10行目と30行目の間に CLEAR コマンドを入れて右のようにしま 
した.これで，何回実行しても，その都度正しい答が得られます. 


10 PRINT "TOTAL" 

10 PRINT "TOTAL" 

30 INPUT "D 二 , 、 D 

20 CLEAR 

40 S=S 十 D 

30 INPUT "D 二 " 3 D 

50 N=N+1 

40 S=S 十 D 

60 PRINT M ) = M ?S 

50 N=N+1 

70 GOTO 30 

60 PRINT "SC ； N; M ) = "；S 


70 GOTO 30 
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フ□グラム•コマンド 

C し S (clear screen !クリアスクリーン) 


機 能 

表示を全てクリアし， ホーム 位置（左上隅） にカーソル 

を移す 

書 式 

CI_S 




CLS は，クリアスクリーンの略で，画面を消去して力ーソルを画面左上隅の 
ホームポジ シヨ ンに移動するものです. 

これは，グラフィック表示などをする場合，最初にいったん画面をクリアし 
ておくようなときに使われます. 

① マニュアルで実行した場合は，力ーソルは（0， 1) の位置に表示されます. 

② プログラム中での実行時には，力ーソルは（〇，〇)の位置に設定されます 


使い方 


10 CLS 

20 FOR 1=0 TO 360 STEP 12 
30 DRAU(SINI *15+80 3 COS 1*15+15) 
40 NEXT I 
50 END 


このプログラムは，次のような図形を表示するものです. 



このように，画面に図形を描く場合には，描き始める前に画面をクリアして 
おかなければなりません.そのために，プログラムの先頭で CLS コマンドを使 
つています. 
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D □クラム•コ 7 ンド 1 

DIM (dimension :デイメンシ ヨン） 


機 有 I 

配列を宣言する 

書 式 

DIM 配列変数名(添字）〔，配列変数名（添字)〕 


DIM 命令は，メモリーエリアに指定する変数名で，配列を作ることを宣言し 
ます. DIM で宣言された変数は，配列変数と呼ばれ，単精度数値配列，半精度 
数値配列，文字配列の 3 種類からなります. 


DIM の宣言のしかたは，次のように示すことができます. 


DIM 配列変数名（添字〔，添字〕）〔，配列変数名 （ 

(添字の最大値は， 255 までです） 

以下に配列の種類による宣言文の例を示します. 


害 式 

種 類 

例 

DIM 配列変数名 （1) 

1次元単精度数値配列 

DIM A ⑸ 

DIM 配列変数名 （U) 

2次元単精度数値配列 

DIM A (2,3) 

DIM 配列変数名！⑴ 

1次元半精度数値配列 

DIM A ! ⑸ 

DIM 配列変数名！ (U) 

2次元半精度数値配列 

DIM A !(2’3) 

DIM 配列変数名 $W*N 

1次元文字配列 

DIM A $(5) * 20 

DIM 配列変数名 $0, J)*N 
* N は省略できます 

2次元文字配列 

DIM A $(2, 3)* 20 


ここで， 丨， J, N は， 0$ 丨 <256，0 ^ J < 256, 0 S N<80 の実数，あ 
るいは数式で，数値の小数点以下は切り捨てられます。 
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使用可能な配列変数名は英大文字の A 〜 Z で，1文字のみです. 

また，次元の最大値は2で，1次元配列，2次元配列を設定できます. 

配列変数名の直後に“！”をつけることによって半精度数値配列を，“ $”を 
つけることによって文字配列を設定できます. 

また，文字配列では，“* N ” をつけることによって， “ N ” の長さをもつ文字 
配列が代入できる文字配列を宣言します.ただし，“* N ” を省略したときは， 
16 文字の文字配列となります. 


使い方 


次の プログラムを 入力して， RUN してみてくだ さい. 

10 CLEAR 

20 DIM A (2,3)， B (2,3) 

100 END 

20 行〜100行の間に，何か演算式を書いてもよいのですが，何も書き込まなく 
てもかまいません. 

実行後 ， Ready P 0 などの文字が出たら，次のように，配列変数のリストを 
出してみます. 

LIST V 或 
A ( ) B () 

Ready P 0 

……のように表示されます.このように， DIM で宣言した配列変数名は…… 

LIST V 或 

……を用いることによって，知ることができます. 

では，上記のプログラムに，次のリストを追加して，各配列変数の内容を見 
てみましよう.配列変数を使う場合は，必ず，その前に DIM で宣言しておかね 
ばなりません. 


163 










30 FOR I =0 TO 2 
40 FOR J =0 TO 3 
50 PRINT A ( I ， J )； B ( I ， J ); 

60 NEXT J : NEXT I 

30 〜 60 行を追加して、 RUN すると，次のように，表示されます. 

■実行例 _ 

0 0 ^ 0 0 0 0 0 0 0 0 

0 0 0 0 

Ready P 0 

これは， A (0，0)， B (0，0)〜 A (2,3)， B (2,3) の 24 個の配列変数の内容を表示 
したわけですが，すべて，“0”となっています. 

ここで重要なことは， DIM 命令が実行されると，その配列の内容はすべて 
“0”となるということです. 

ただし，上記のような数値配列は“0”を表示しますが，文字配列を宣言した 
場合は，すべてヌルストリングとなり，何も表示されません • ヌルストリング 
は，文字配列が空っぽであることを意味します。 

ここで注意しなければならないことは，スペースとヌルストリングの違いで 
す.スペースは空白が人っているもの （ A $( I ) = “ l _；’） T ， ヌルストリングは， 
何も人っていない状態 （ A $( I )= “”）ですので注意して下さい. 



籲並べかえ（ソート）プログラム （ 1 次元数値配列） 


10 CLEAR 
20 DIM D(5) 

30 FOR 1=1 TO 5 

40 PRINT "DATA";I; " ="； : INPUT D(I) 
50 NEXT I 
60 REM NARABIKAE 
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プログラム•コマンド / DIM 

70 F =0 

80 FOR 1=1 TO 4 

90 IF D ( I ) く D ( I 十1 〉 THEN X = D ( I ); D ( I 〉 
= D ( I 十 1〉： D ( I 十 1〉= X : F =1 
100 NEXT I 
110 IF F =1 THEN 70 
120 REN KEKKA 
130 FOR 1=1 TO 5 
140 PRINT D ( I )； 

150 NEXT I 
160 END 


このプログラムは， 5 つの数値データを入力し，そのデータを大きい順に並 
ベかえるプログラムです。 

20行の DIM 命令で， D (0) 〜 D (5) の配列の使用を宣言していますが，ここで 
は， D ( l ) 〜 D (5) の5つの配列を使っています. 

60行〜110行が並べかえのプログラム，120行〜150行が，大きい順に並べかえ 
た結果を表示するプログラムです. 

このサンプル • プログラムでもわかりますように，配列変数は FOR 〜 NEXT 
命令と組合せて使うと便利です. 


サンプル • プログラム 


參タテ • ヨコ集計 （ 2 次元数値配列） 


10 Din AC 3,3〉， X (3〉， Y (3) 

20 FOR 1=1 TO 3 
30 FOR J =1 TO 3 
40 PRINT " ( " ; I ; n ， " ； J ; " 
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プログラム • コマンド / DIM 


50 INPUT A ( I ， J ) 

60 NEXT J;NEXT I 
70 REN SHOUKEI 
80 FOR 1=1 TO 3 
90 FOR J =1 TO 3 
100 X ( I )= X ( I ) 十 A ( I ， J 〉 

110 丫 （ J )= 丫 （ J ) 十 A ( I ， J 〉 

120 NEXT J:NEXT I 

130 REM KEKKA 

140 FOR 1=1 TO 3 

150 PRINT " XC "； I ； ,, ) = ,, ； X ( I ) 

160 PRINT "丫 （••； I ； = YCI ) 

170 FOR K =1 TO 500 :NEXT K 

180 NEXT I 

130 END 


このプログラムは，表 1 のようなデータを，表2のような2次元配列に割り 
当て， ダテ •ョコ の 小計 X (1)， X (2)， X (3) および Y (1)， Y (2)， Y (3) を求めるプロ 


グラムです. 


14 

9 

21 

X ⑴ 

35 

4 

53 

X(2) 

6 

15 

11 

X ⑶ 

Y ⑴ 

Y(2) 

V(3) 



A(l,l) 

A(l,2) 

A(l ， 3) 

X ⑴ 

A(2,l) 

A(2,2) 

A(2,3) 

X(2) 

A(3,1) 

A(3,2) 

A(3,3V 

X(3) 

Y(l) 

Y(2) 

V(3) 



80 行〜 120 行が小計を求めるプログラム， 130 行〜 180 行が求めた値を表示する 
プログラムです. 


CLEAR , NEW ALL , ERASE , LIST V 
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{:フ□グラム•コマンド 


DRAW/DRAWC (=: 匕 _ クリァ ) 


機 能 

DRAW :ドット（点)を描く 

DRAWC :ドット（点)を消す 

書 式 

DRAW ( Xi , Yi ) 〔- ( X 2， Y 2 )〕 

DRAWC ( Xi , Yi ) 〔- ( X2 , 丫 2 )〕 


DRAW 命令は，スクリーン上にドット（点)，あるいは線を描くもので， DRAWC 
は逆に消すものです. 

画面上に，キャラクタのみならず，点，線を表わすことができるので，この 
コマンドは， 画面にグラフ等を描くことができます. 

DRAW ( X , Y ), または， DRAWC ( X ， Y ) で指定可能な座標 ( X ， Y ) は…… • 
-255.5 く X く255.5 — 255.5く Y <255.5 

. となって います. 

画面のドットの座標は， 0 SXS 159, 0 SYS 31 となっていますので，次の図の 

(-255.55, - 255.5) (255.5, - 255.5) 

指定可能座標 

PB-700 の画面 



(0,31) (159,31) 


よつに画面を表不します. (-255.5, 255.5) (255.5, 255.5) 

図の匚コの部分が画面に相当します. 

ただし，画面の左上隅が，原点（0,0)となっています. 
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使い方 


DRAW , DRAWC の使い方を，次にまとめておきます. 


DRAW ( XI , Y 1) 

座標点( XI , Y 1) に点を描く 

DRAWC ( X 1, Y 1) 

座標点( XI ， Y 1) の点を消す 

DRAW ( XI , Y 1)-( X 2, Y 2) 

座標点( XI ， Y 1) から座標点 ( X 2， Y 2) に線を描く 

DRAWC ( X 1, Y 1)-( X 2, Y 2) 

座標点（ XI ， Y 1 ) から座標点 ( X 2， Y 2) の線を消す 


上記の X ， Y は数値，変数名，および数式であり，その値のとり得る範囲 X 


は， 一255.5< X <255.5，- 255. 5< Y <255.5 

……です.実際のスクリーン上では，小数点以下第一位目を四捨五入した整数 
値で示されます. 

次のブログラムは，画面上に，長方形を描きます. 

10 REM DRAW 
20 C し S 

30 DRAW (10,1 0)-(1 0,20)-(150，20 )—(1 50,1 0)-(1 0,10) 

40 END 

このプログラムの ように，“ 一”で 座標を いくつ も連続させると，図が描けま 

す. 

DRAW * で直線を引く時， 1 演算誤差により画面の縁の点を描かない場合があり 
ます. 

この場合は該当する点についてのみ点を描くようにするか，または誤差を補 
正す るために直線の終点 （ X 2， y 2) が 画面の 縁 （ X 2 = 159 もしくは y 2 = 31) と 
なるようした上で，終点を （ X 2， y 2+0) として下さい. 

DRAW ( xi , yi )-( x2 , y2 + 0) 

x 2 = 159 もしくは y2 = 31 


グラム 


参キャラクタを 2 倍に拡大して表示するプログラム 
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10 CLEAR : Din A(7 ? 7)：CLS 
20 K$=INKEY$ 

30 IF K$="" THEN 20 















プログラム•コマンド/ DRAW/DRAWC 


40 LOCATE 19 3 0： PR^NT K $ 
50 FOR 1=0 TO 7 

60 FOR J =0 TO 7 

70 A ( I 3 J )= POINT ( I 十 152, J ) 
80 NEXT J：NEXT I 
90 FOR 1=0 TO 7 

100 FOR J =0 TO フ 

110 IF A ( Ij J )<>1 THEN 160 

120 DRAU (2* I +80 3 2* J +9) 

130 DRAU (2* I +81 ? 2* J +9) 

140 DRAU (2* I +80 3 2* J +10) 
150 DRAU (2 木卜 81，2* J 十 10) 
160 NEXT J：NEXT I 
170 LOCATE 0， 1 
180 END 


このプログラムは， INKEY $ でキャラクターを 1 文字人力し，その文字を， 
下図のような ， LOCATE (19,0)の位置にまず表示させます. 

この文字は， （152.0) — （159.7) を対角線とする正方形の位置にドットで表示さ 
れますが， POINT 関数で点灯しているドットと消えているドットをチェックし， 
その値0，1を A ( I，J ) の配列変数に代入します. 

この配列変数をデータとして，座標(80, 9) — (95, 24) を対角数とする正方形の 
位置へ，2倍に拡大したキャラクターを表示します. 


(80,9) 



(95,24) 


(152,0) 一 f 
(159,7) 


POINT 













ヲ □グラム•コ 7 ンド 

END (end : エン ！^ 


機 能 

プログラムの実行を終了させる 

書 式 

END 


END 命令は，プログラムの実行を終了させます （END 命令が実行されると， 
今までのネステイング•スタックをクリア，つまり FOR 〜 NEXT ループや GO 
SUB の途中でプログラムを終了させます）. 


END 文は，プログラムのどこに置くこともできますし，いくつ置いてもか 
まいません. 

また，プログラムの最後の END 命令は省略することができます. 



グラム 


500 

FOR 1 

=0 

TO1 000 

51 0 

K$=INKEY$ 



520 

IF K$ = 

“A” 

THEN 

1 000 

530 

IF K$ = 

“ 巳 ” 

THEN 

2000 

540 

IF K$ = 

“c” 

THEN 

3000 

550 

IF K$ = 

“D” 

THEN 

END 

560 

NEXT 1 




570 

END 





このプログラムは，メニュープログラムの一部として使われるものです. 
“八”，“ 8 ”，“ (： ”などの文字が入力されると，それぞれ1000行，2000行，3000 
行のプログラムへ飛び，それらのプログラムを実行します. 

“D” が入力されれば，即座に終了しますが，” A" 〜 ''D" 以外のキーが入力さ 
れたり，キーが押されないと，ある程度，時間を置いて自動的に終了します. 


stop 
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ERASE 



(erase : イレース ) 


機 能 

登録変数，配列変数を，1変数名単位で解除する 

書 式 

ERASE 変数名〔，変数名〕 


ERASE 命令は ， LIST V によって確認できる登録変数や配列变数を，1 
変数名単位で解除することができます. 

解除の対象となる変数名の指定方法は，次のように行ないます. 

LIST V により表示される変数名 AB , AB $， A ( )， A !( )， A $() 


ERASE A 巳 ， A 巳 $, A , A !, A $ 

この ERASE 命令の実行によ 1 )， FOR ネスティングスタックはクリアされます. 
登録されていない変数名を指定した場合は，何もしないで，次の実行に移り 
ます. 

DIM , LIST V 
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ヲ □グラム•コマンド 1 

FOR 〜 TO 〜 STEP/NEXT ( フオー • トウ • ステップ/ネクスト 


機 

m 

FOR から NEXT までを指定回数繰り返す 



FOR 数値変数= i TO j 〔 STEP k 〕 

( 

書 

式 

) 

NEXT 数値変数 （FOR 文と同一変数） 



i :変数の初期値 j :変数の終値 k :増分 


FOR 〜 NEXT 命令は， FOR 命令と NEXT 命令にはさまれた各ステートメント 
を，終値を越えるまで繰リ返し実行します. 


この命令は，上記の書式にもとずいて書きますが， 

いくつかと制約がありますので，次に示しておきます. 

( 1 ) 変数は数値変数でなくてはならない. 

(2) STEP k は省略することができるが，その場合 
には増分として+1 ( STEP 1) が設定される. 

(3) 初期値 i ， 終値 j ， 増分 k には変数や数式を用いることができる. 

(4) k >0 でかつ i > j の場合は， FOR 〜 NEXT 間は1回だけ実行される. 

(5) k <0でかつ i < j の場合も， FOR 〜 NEXT 間は1回だけ実行される. 

(6) FOR 〜 NEXT 間を実行して，次の行に移った場合の制御変数は， j より 
大きな j + nk の値となる. 

(7) FOR 〜 NEXT のネスティングは6段まで可能. 

(8) FOR 〜 NEXT ループは完全に入れ子となっていなくてはならず，区間が 
交錯している場合は F 0 エラーとなる. 

(9) 1つの FOR に対する NEXT はいくつ存在してもよい. 

(10) FOR が実行されないで， NEXT が出現した場合は FO エラーとなる. 

( 11 ) NEXT 命令の変数は省略できない. 

(12) ERASE , CLEAR が実行されると， FOR ネスティングのスタックがクリ 
ァされるため，次の NEXT 文で FO エラーとなる. 


FOR A = …… TO 



— FOR C = TO 

— FOR D = …… TO 
FOR E = …… TO 
FOR F = …… TO 
処理 
NEXT F 
NEXT E 
L-NEXT D 
— NEXT C 
—— NEXT B 
- NEXT A 
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03) 同一制御変数を用いた場合には，新しいループが有効となる. 

ただし，新しいループの内側にあるループはすべてクリアされる. 

(14) FOR 〜 NEXT ループ外から， GOTO , GOSUB などでループ内に飛び込む 
ことはできない. 


使い方 


次のプログラムは，初期値，終値，増分の値によって，変数がどのように変 
化するかを見るプログラムです. 

10 INPUT "FOR l = "， l ，'' TO "， J ，'、 STEP"，K 
20 PRINT ''FOR l = "; l ;'' TO "; J ; u STEP";K 
30 FOR A = l TO J STEP K 
40 PRINT 、' HENSUU : A ゴ ; A 
50 FOR X =1 TO 100 ：NEXT X 
60 NEXT A 
70 PRINT : GOTO 10 
いくつかの実行例を次に示しておきます. 

次のプログラムは， FOR 〜 NEXT ループを2段重ねたものです. 

10 CLEAR 
20 DIM A (9, 9) 

3© FOR I =1 TO 9 - 

40 FOR J 二 1 TO 9 

5© A ( l , J ) = I * J | j 

6 ⑦ NEXT J — 

7® NEXT I - 

この例では， 2 段の FOR 〜 NEXT 間で，配列変数 A ( I , J ) に九九を演算し， 
代入しています. 
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内側の FOR 〜 NEXT 命令で 9 回，外側の FOR 〜 NEXT 命令で 9 回実行し 
ますので，合計 9 X 9 回の演算を行なっています. 

このプログラムでは ， FOR 〜 NEXT 命令を 2 段重ねていますが， FOR と 
NEXT は，内側は内側どうし，外側は外側どうしで対応していなければなりま 
せん.これは， 3 段〜 6 段においても同様です. 

次のプログラムは， FOR 〜 NEXT 命令の演算の結果によって，ループから 
飛び出し，流れを変えるものです. 

10 C し EAR 

20 FOR 1=1 TO 100 
30 X=X+I 

40 IF X >=1 000 THEN 1 00 
50 NEXT I 
60 END 
100 PRINT l；X 
110 END 

この プログラムは， 1 + 2 + 3 ……のたし算をして，その過程で;最初に1000 
を超える結果が出たとき，100行へ飛び出し，そのときの変数の値とたし算の結 
果を表示するものです. 

このように， IF 〜 THEN 命令を使って，途中からループを脱出する方法は 
よく使われるテクニックです. 

また，この 他にも， GOSUB 命令を 使い， 一旦 ループから 脱出して ， RETURN 
命令で再びもどり，実行を継続することも可能です. 

次のプログラムは， FOR 〜 NEXT 間に，何も実行するものがない例です. 

1 0 し〇 CATE 8, 2 : PRINT “HIT I” 

20 FOR 1 = 0 TO 50 
30 NEXT I 
40 C し S 
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50 FOR 1=0 TO 50 
60 NEXT I 
70 GOTO1 0 

20 〜 30 行および 50 〜 60 行の FOR 〜 NEXT 間には，処理すべきステートメン 
卜がありませんが，このような場合でも，終了条件を満たすまで FOR 〜 NEXT 
命令を実行します. 

ちょっと，無意味な命令に見えますが，時間かせぎをしたいような場合によ 
く使い，''待ちループ"などと呼んでいます. 

このプログラムでは，という文字を一定時間表示させ，一定時間 
消した後，再び一定時間表示させることをくり返しています. 

終値を大きくすれば，それだけ，待ち時間が長くなります. 




• 印を1 つずつ 増やして表示させる プログラム 



10 CLS 
20 N=1 

30 FOR 1=1 TO N 
40 PRINT ; 

50 NEXT I 
60 PRINT 
フ 0 N=N+1 

80 IF N=>20 THEN END ELSE 30 


このプログラムは， FOR 〜 NEXT 命 
令の終値を 1 つずつ増やして，印 
の表示個数を1つずつ増やして います. 
右の図が表示例です. 


t 

\1/ \1/ >1 / 

/jc /|c ^jc/jc/jc 




IF 〜 THEN 〜 ELSE 
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(get :ゲット） 


GET 


機 能 

カセットテープに記録したデータを変数データに読み込む 

書 式 

GET 変数〔，変数〕 

GET 、、ファイル名"変数〔，変数〕 


GET 命令は， PUT 命令でカセットテープに書き込んだデータを，変数に 
読み込む命令です. 

上記の書式のように，ファイル命令を省略することができますが，省略した 
場合は，カセットテープ （ MT ) から送られてくる最初に出現したデータファ 
イルを読み込みます.また，変数をカンマ（，）で区切ることによって，デ— 
夕を順番に異なる変数に読み込むことができます. 

ただし，数値変数にデータを読み込む場合には，データ先頭のスペースは無 
視されます. 


使い方 


次のプログラムは，変数 A ， B , C ， D の値を，ファイル名 、、 TEST " をつけ 
て，カセットテープに記録します. 

10 REM PUT MT 
20 A =10 : B =20 : C =30 : D =40 
30 PUT 、' TEST " A ， 巳， C，D 
40 END 

次に， GET 命令を使用して，カセットテープの'' TEST " というファイル 
から，データを読み込む例です. 

10 REM GET MT 
20 GET ''TEST" E ， F ， G，H 
30 PRINT E ； F ； G ； H 
40 END 

この例では，前出の A ， B , C ， D のデータが， E ， F ， G , H の変数に読み込 
まれます.ここで，大切なことは，カセットテープには， A ， B ， C ， D という 
順番で記録されている点です. 
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したがって，カセットテープを再生した場合には， A ， B ， C ， D の順に デー 
夕が送られてくることになり， A の データは E に， B の データは F に……のよ 
うな順に代入されます. 

もし，カセットテープに記録した変数データより多い変数で GET すると， 
データが足らなくなり， DA エラーと なります. 



•カセットテープに 名前と その人のデータを 記録し，名前を入れると， その 
人のデータを 読み込み，表示す るプログラム. 


10 CLEAR 

20 DIN N$(10) ， D$(10) 

30 INPUT n PUT：0 GET：I END ： E" 
40 IF \U= n O il THEN GOSUB 100 
50 IF 11$ 二 " I" THEN GOSUB 300 
60 IF f1$ 二， * E" THEN END 
70 GOTO 30 
100 1=0 

110 INPUT "NAflE: n ； N$(I) 

120 PUT N$(1) 

130 IF N$(I)="0" THEN 180 
140 INPUT ,, DATA ： 11 ； D$(I) 

150 PUT D$(I) 

160 1 = 1 十 1 

170 IF I<=10 THEN 110 
180 RETURN 
300 J=0 

310 INPUT "NAME： M 
320 GET N$(J) 

330 IF N$(J)="0" THEN PRINT 
11 NOT FOUND GOTO 380 
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プログラム • コマンド / GET 


340 GET D$(J) 

350 IF A$ON$( J) THEN 370 
360 PRINT Ml "^"SDSC J)：GOTO 380 
370 J=J+T. GOTO 320 
380 RETURN 


このプログラムは， 2 つのサブルーチンで構成されています. 

100〜180行が，カセットテープへのデータの記録サブルーチン，300〜390行 
がカセットテープからデータを読み込み，データを検索するサブルーチンです. 

データは，配列変数 N $ ( 丨 ） に名前， D $ ( 丨 ） にその人のデータを入れ，こ 
の2つの変数がペアになって，書き込んだり，読み込んだりされます. 

30行のメニューで，、'〇"を入力しますと，100行からの記録サブルーチンが 
実行され，次々に名前とデータを入力します•最大11個までのデータを入力でき 
ますが，最後には，名前に必ず'、 0" (データの終りを示すため）を入力する必 
要があるため，実際には，最大10個のデータが記録できます. 

30行のメニューで、'： T を入力すると，探し出したい人の名前を入力すると， 
カセットテープから，名前とデータを読み込み，検索します. 

その人の名前を探し出したら，名前とデータを表示して，30行のメニューに 
もどります. 

メニューで、 、 E " を入力すれば，プログラムは終了します. 

PUT,SAVE 
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GOSUB/RETURN ㈣ 勢厂ダーン) 


機 

m 

指定された分岐先へサブルーチン分岐する 



GOSUB 行番号 

1 S 行番号 <10000 

奎 

式 

GOSUB PROG n 

0 ^n<10 

S 



RETURN 

(n はプログラムエリァ番号） 


GOSUB 命令は，変数や数式で示される行番号のサブルーチンプロ グラ ムへ 
の分岐を行ない， RETURN 命令は，サブルーチンプログラムからメインプログ 
ラムへの復帰を行ないます. 


上記の書式のように， PB -700 では，同ープログラムエリア内のサブルーチ 
ン への分岐の他に，他のプログラムエリアに書き込まれている サブルーチンプ 
ログラムへの分岐および復帰も可能です. 


使い方 


次のプログラムは，配置を変えて，実行の流れを示したものです. 


r 10 
^ 20 
y 30 
多 I 40 
1 50 
60 


C し S 

Z$ = INKEY$ 

IF Z$ =、、"THEN a 
GOSUB 1 00 
GOSUB 200 
END^_ 


サブルーチン ① 



100 A = ASC(Z$) 
110 RETURN 


サブルーチン② 


200 

LOCATE 0,2 

210 

FOR 1=0 T0 19 

220 

PRINT CHR$(A + I); 

230 

NEXT 1 

240 

RETURN 


10 行〜 60 行がメインプログラムです. 100 行〜 110 行が 1 つのサブルーチンプ 
ログラム， 200 行〜 240 行も 1 つのプログラムです. 

上記の矢印のように， RETURN 命令を実行すると， GOSUB 命令の次に復帰 
し，実行を続けます. 
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前述のプログラムを多少変形して，次のように書くこともできます. 


の CLS 

20 Z $ = INKEY $ 

30 IF Z $ 二、、〃丁 HEN 20. 
40 GOSUB 1 00 
50 END 


サブルーチン② 


_ サブルーチン ① 

1 の 0 A=ASC(Z$) 
11 の G0SUB 200 
120 RETURN 


/ 


\ 


200 LOCATE 0，2 
210 FOR 1 = 0 TO 19 
220 PRINT CHR$(A + I) 
230 NEXT I 
240 RETURN 


プログラムの内容は，前述のものと全く同じですが，今度は，サブルーチン 
①の中にサブルーチン②が含まれる二重構造になっています. 

GOSUB / RETURN 命令では，このような人れ子（ネスティング）は 12 段まで 
許されています. 

GOSUB / RETURN 命令を使うときには，次のような点にも注意してください. 

( 1 ) 1つのサブルーチンプログラムには， RETURN 命令はいくつあつてもか 
まわないが，必ず1つはなければならない. 

(2) G 0 SUB 命令を実行した場合に，指定行がない場合は UL エラーとなる. 

(3) GOSUB PROG n を実行した場合，プログラムエリア n にプログラムが 
書かれていないときは，現在のプログラムエリア内において UL エラーとなる. 

(4) RETURN 命令実行時に，それ以前に GOSUB 命令が実行されていないとき 
は GS エラーと なる. 

(5) GOSUB のネスティングは 12 段まで可能 （ 13 段以上は N 0 エラー） 

(6) GOSUB で指定する行番号やプログラムエリアナンバーに小数部を含む 
場合は，小数部を切り捨てた上で実行される. 


參スロツトゲームプログラム 


サンプル • プ 


メインプログラム 


180 


丄 0 C し S 

20 GOSUB 200 
30 GOSUB 300 












プロクラム • コマンド / GOSUB/RETURN 


40 GOSUB 400 
50 LOCATE 3，0 
60 PRINT M TOKUTEN n 
フ 0 LOCATE 0 ， 0: END 
200 X=INT(10 京 RND) 

210 Y=INTC10*RND) 

220 Z=INTC10)(cRND) 

230 RETURN 

300 LOCATE 6,2 

310 PRINT X ； " 丫； •• " ;Z ； 

320 RETURN 

400 IF X=Y THEN IF Y=Z THEN 
N=100：RETURN 

410 IF X=Y THEN N=40： RETURN 

420 IF Y=Z THEN N=30： RETURN 

430 IF X=Z THEN N=20： RETURN 

440 N=0 
今 50 RETURN 


このプログラムは， 3 ケタの数字が表示され，3ケタとも同じ数字が表示さ 
れると，得点が100点，2ケタだけが同じ数字の場合は，その位置によって，40 
点，30点，20点に分かれています. 

3ケタともバラバラの場合は，0点と表示されます. 

200〜230行が， RND 関数で3つの数字を発生するサブルーチン，300〜 320 tf 
が，その数字を画面の中央に表示するサブルーチン，400〜450行が，得点をチ 
エツクするサブルーチンです. 

10〜70行のメインプログラムは，各サブルーチンを制御し，得点を表示する 
だけです. 


GOTO 
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厂ブ□ヴラム•コマンド 1 

gohto (got 。 : ゴ - トゥ - ) 


機 育 i 

指定する分岐先へ無条件に分岐する 

書 式 

GOTO 行番号 行番号< 10000 

GOTO PROG n 0 ^n <|0 

n : プログラムエリアナンバー 


GOTO 命令は，変数や数式で指定された行番号，あるいはプログラムエリア 
番号のプログラムの先頭行へ，無条件に分岐します. 

指定する行番号，あるいは指定するプログラムエリアにプログラムがない場 
合には UL エラー となります. 

また 行番号，あるいはプログラムエリア番号に小数部を含む場合は，小数 
部を切り捨てて実行されます. 

書式例を示します. 



行 番号 

プログラムエリア 

数値定数 

数値変数 

数 式 

GOTO 500 

GOTO N 

GOTO N*5 

GOTO PROG 4 

GOTO PROG N 

GOTO PROG N/1 0 


サンプル • プログラム 


♦簡易デジタル時計プログラム 

10 INPUT ll H=";H ， "S=";S 
20 C し S 

30 IF H<10 THEN LOCATE 8 ? 0 ：PRINT H； M : 
”；: GOTO 50 

40 LOCATE 7 ? 0：PRINT H ； 11 ；"； 

50 IF n< 10 THEN LOCATE 12 , 0 : PRINT fl;' 

; : GOTO 70 
60 LOCATE 11 ， 0 PRINT 

70 IF S<10 THEN LOCATE 16j 0 ^ PRINT S；* 
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プログラム•コマンド/ GOTO 


: GOTO 90 

80 LOCATE 15 3 0：PRINT S ； 

S0 FOR 1=2 TO 72：NEXT I 
100 S=S 十 1 

110 IF S>=60 THEN 200 
120 GOTO 70 

200 S=0;M=f1 十 1 

210 IF f1>=60 THEN 300 

220 GOTO 50 

300 n:0;H 二 H 十 1 

310 IF H>=24 THEN H 二 .0 

320 GOTO 30 

このプログラムを RUN すると ， H (時)， M (分)， S (秒）を聞いてきますの 
で，現在の時間を入力し，ほキーを押すと同時に，秒単位で時間を表示しま 
す.あらかじめ，進ませた H ， M ， S を入れておき，正確な時計と合わせて 
キーを押してください. 

この プログラムは， マイコンの 内部時計を利用して いる わけでは ないので， 
正確な時計とはいえませんが，およその時間を知ることは可能です. 

進み勝ちのときには， 90 行の FOR 命令の終値を増して調節します.また， 
遅れる場合は，終値を減らして調節します. 

このプログラムには，いたるところに GOTO 命令が使われて います. 

120 行， 220 行， 320 行の GOTO 命令によって，プログラムは無限ループを作 
っています. 

GOSUB / RETURN , IF 〜 THEN 〜 ELSE 
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厂ブ□グラム•コマンド丨 

IF 〜 THEN 〜 ELSE 


機 能 

IF 後の条件により， THEN もしくは ELSE 以降を実行する 

書 式 

1 F く条件式〉 叫】マ番ンす } ELSE {コ 

行番号として数式を用いることはできない 


GOT 〇命令の無条件分岐に対して， IF 〜 THEN 命令は汆件分岐します. 


条件式が真の場合， THEN 文を実行し，偽の場合ほ， ELSE 文を実行します. 

THEN 文および ELSE 文中には，分岐する行番号あるいはコマンド文を人れ 
ることができます. 

IF 文においては，条件式が成立しない（偽）ときは， （ THEN の次の行番号へ 
分岐せず） ELSE の後の行番号へ分岐または，コマンドを実行するということ 
ですが， ELSE 文がない場合には，実行は次の命令または行へ移ります•さら 
に，コロン（：）を用いると， THEN 文， ELSE 文に，次のようなマルチステー 
トメントが可能です. 

IF く 条件式〉 THEN 〜：〜：〜 ELSE 〜：〜：〜 

I_I!_ J 

THEN 文 ELSE 文 

上記の THEN 文あるいは ELSE 文中に，次のように IF 文を入れることがで 
きます. 

条件式①が真，②が偽のとき実行 一 1 

IF く 条件式①〉 THEN IF く 条件 式②〉 THEN 〜 ELSE 〜 ELSE 〜 

条件 式①② とも真のとき実行 ー コ 

条件式①が偽のとき実行 —— 


使い方 


次に， IF 〜 THEN 〜 ELSE 命令の使い方の事例を示します.三辺の値を代入し 
て，それが三角形であるかどうかを判断します. 

① 10 INPUT、、A 二 " ； A, 、、巳二々；巳 , 、、 C 二 "； C 

20 IF A + B>C THEN 40 
30 GOTO 50 

40 IF ABS(A-B)<C THEN 60 
50 PRINT、、NOT TRI ,/ : GOTO1 0 
60 PRINT WTRI" : GOTO1 0 
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プログラム • コマンド / IF 〜 THEN 〜 ELSE 

② 10 INPUT、'A = ";A,、'B = ";B,、'C = ";C 

20 IF A + B>C THEN IF ABS(A-B)<C THEN 40 
30 PRINT ''NOT TRI" : GOTO10 
40 PRINT ''TRI" : GOTO10 

③ 10 INPUT、'A ゴ； A ，、 'B ゴ；巳， 、 'C ゴ ； C 

20 IF A + B>C THEN IF A 巳 S(A-B)<C THEN 40 
30 PRINT ''NOT TRI" : GOTO1 0 
40 IF A = 巳 THEN IF 巳 =C THEN PRINT 、 'E.TRI" : GOT 
010 ELSE PRINT ''I.TRI 〃 ： GOTO10 
50 IF B = C THEN PRINT 、 'I.TRI" : GOTO1 0 
60 IF A = C THEN PRINT 、 'I.TRI" : GOTO1 0 ELSE 
PRINT ''TRI" : GOTO10 

① の解説： 三角形の条件は，2辺を足した値が他の一辺より大きく，かつ2 
辺の差が他の一辺よりも小さいものです.この2つの条件が成立するかどうか 
を，20行と40行で判断しています.ですから，ひとつの条件でも成立しなけれ 
ば，30行で50行の” NOT TRI ” （三角形ではない）へ分岐させます. 20行が成 
立しても，40行が成立しなければ，次の行を実行します. 

② の解説： ①の2つの条件を，20行でいちどに行なっています. 

20 IF A + B>C THEN IF ABS(A - B)<C THEN 40 

式① 式② 式①が真，式②が真 

のとき， 40 行へ 

③ の解説： このプログラムは，②のプログラムにさらに，正三角形 （ E . TRI ) 
であるか，二等辺三角形 ( I . TRI ) であるかの判断を加えました. 40行で ， A = 
B かつ B = C ， つまり三辺が等しければ，正三角形 ( E . TRI ) を表示し， B 二 C 
が成立しなければ，二等辺三角形 ( ITRI ) を表示します. 50行は ， A + B で B 二 
C の場合の二等辺三角形であることの表不，60行は， A 二 C のときの 一 寺辺二 
角形であることの表示と ， A + B，B + C，A + C のときの三角形であること 
の表示です. 
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プログラム•コマンド/ IF 〜 THEN 〜 ELSE 


40 IF A = 巳 THEN IF 巳 =C THEN PRINT “E.TRI” ： GOTO 

1 - <!>- t し dH i 

式①が真ならば" ~~ 式②が真ならば一 1 

10 ELSE PRINT “I.TRI ，，： GOTO 1 0 

1 ' 

②が偽ならば」 


サンプル•プ 


* 画面にドットで模様を描〈プログラム 


10 CLS 

20 X=0：Y=0：N=l：n=l 
30 DRAU(X,Y) 

40 X=X+N: Y=Y 十 11 
50 IF X>=159 THEN N=-1 
60 IF Y>=31 THEN M=-l 
70 IF X<=0 THEN N=1 
80 IF Y<=0 THEN N=1 
90 IF X=1 THEN IF Y=31 THEN BEEP 
1：END 

100 GOTO 30 


この プログラムは， 画面のドット座標（ X ， Y ) の値が，画面の限界にある 
かどうかを， IF 〜 THEN 命令で判断し （40 行〜80行)，座標の X ， Y の値を増や 
すか，減らすかを，制御しています. 

そして， X ， Y の値が X = l，Y = 31 となったとき （90 行)， BEEP 音を出し， 
プログラムを終了します. 

下記の図は，実行結果を示したものです. 

■実行 例 
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厂フ□グラム•コマンド I 

INPUT ( input :インプット） 


機 能 

キーボードからのデータ（数値，文字)を指定した変数に入力する 

書 式 

INPUT 変数〔，変数〕 

input 、 ' メッセージ文 " ，変数〔 / メッセージ文 " ，変数〕 
INPUT 、 ' メッセージ文 " ；変数〔， '' メッセージ文 " ；変数〕 


INPUT 命令は，入力命令の代表格で，キーボードからのデータを変数に人力 


するための命令です.以下に， INPUT 文の基本的な型をあげておきます. 


例 1 

INPUT A 

例 2 

INPUT X, Y，Z 

例 3 

INPUT 、、 NENREI"，A 

例 4 

INPUT 、 'NAMAE"; A$ 

例 5 

INPUT 、 'X ゴ； X ， 、 'Y 二 "； Y 




INPUT 命令が実行されると， パソコンは 入力要求のメッセージを表示して， 
データの入力を待ち続けます. 

例えば，上の例1が実行されると，次のように''?"が表示され，その右側に 
カーソルが点燈します.これで，データを入力する準備が整ったわけです. 



Ready P 0 


INPUT 命令実行時の表示 

? 一 （カーソル） 



v _ 



データの人力は，キーボードを押して行ないます.そして，データの最後に 
は必ず IENTE 百] キー,または^)キーを押します.これではじめて，データ 
がパソコンに 入力されたことになります.つまり， INPIJT 文実行中は 1 EN 丁 ERl 
キーは，喊キーと同じ働きをするということですので，これも覚えておいて 
下さい. 


■INPUT 文で使える変数は，次のとおりです 
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〔例〕 

数値変数 . INPUT X 

文字変数 . INPUT X $ (7 文字まで入力可能） 

登録変数 . INPUT XY 

. INPUT XY $ (16 文字まで入力可能） 

配列変数 . INPUT X !( i ), X ! ( j , j ) 半精度数値配列 

INPUT X ( i ), X ( iJ ) 単精度数値配列 
INPUT A $( i ), INPUT A $( i , j ) 文字配列 


使い方 


( 1 ) 数値を入力する INPUT 文 

簡単なプログラムで， INPUT 文•の使い方と働きをみてみましょう. 

10 INPUT A …… 入力命令，変数 A にデータを入力する 


20 PRINT A …… 出力命令，変数 A の内容を表示 


30 GOTO 10••… 分岐命令，プログラムの実行を彳〇行目に移す 


プログラムを入力したら， run ^ またはと入力して下さい. 

が表示されたはずです.ここで， 3.6(^1 と入力してみましょう.正しく 
入力されていれば， PRINT 文によって，下のように同じ数がもう一度表示され 
るはずです. 


fCLSl 

[SHIFTh g,° 3.6 f^JI 


?3.6 

3.6 

?— 

\ _ ) 


なお， INPUT 文で数値を入力する場合に限って，数値データでなく計算式に 
よる入力を行なうことができます. 

前の プログラムを 使って，これを確認して みましょう. 
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プログラム•コマンドハ NPUT 


fCLSl 

[SHIFT] r^i 100—20/5 或 


(2) 文字を入力する INPUT 文 

(1) のプログラムを変えて，文字を入力するようにしてみましょう.プロダラ 
ムは次のようになります. 

10 INPUT A$ 

20 PRINT A$ 

30 GOTO1 0 

文字を人力する場合には，このように文字変数を使います.実行させると， 
数値の入力の場合と同じように a ?" を表示して，入力を要求します.そこで， 
文字列 ABC を入れてみますと，次のような表示となります. 

fCLSl 

(SHIFT) A 巳 C 逆 


仮にここで，数値123を入力した場合，123が表示されますが，これは文字列 
としての「123」であり，数値ではありませんので注意が必要です. 

なお，文字変数にデータを入力する際には，入力する文字列を、'〃（ダブル 
クオーテーシヨン）で囲む必要はありません.、'"を使用した場合には，、'" 
自身も文字データとして入力されてしまいます. 


?ABC 

ABC 

?_ 

v _ J 


?100-20/5 
96 
?_ 

v_ ) 


■INPUT 文で各変数に入力できるデータについて 


①数値変数 . 土 1 XKT 99 〜土9.99999999999 X 10" と0 

数値の演算式〔例： 200 X ( 5 + 2 )〕 

A 〜 Z の数値変数（固定変数） 

登録変数 
配列変数 


つまり， 
変数も含 
めた数式 
であるこ 
とです. 
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②文字変数 

a. 固定文字変数 . 7文字までの文字，記号 

b . 登録文字変数 . 16文字までの文字，記号 

c. 配列変数 . 指定した文字数（最大79文字）までの文字，記号 


(3) 2つ以上の変数を入力する INPUT 文 …… 例2 

INPUT 文には，2つ以上の変数を書くことができます.それは，例2で示し 
たような型で，下のように2つ以上の INPUT 文をひとつにまとめたものという 
ことができます. 


10 INPUT X 
20 INPUT Y 
30 INPUT Z 


10 INPUT X ， Y，Z 

:… •••し-変数をカンマで区切る 


この INPUT 文を実行すると，最初に'' ?"が表示され， X の値の入力を要求して 
きます. X の値を入力すると続いて Y の値， Z の値と順に入力を要求します • Z 
の値を入力すると，この INPUT 文は終了です. 

仮に， X =123， Y 二456 ， Z = 789 を入力した場合，最終的な表示は次のよう 
になります. 

ICLSl RUN _ 

12 3 ^) 

4 5 6 ^) 

7 8 9 

この型の INPUT 文では， 

10 INPUT A $, X 

のように，数値変数，文字変数など変数はどのような組み合せ，順序でもか 
まいません.ただし，変数と変数の区切りは，必ず，（カンマ）を使用します. 


RUN 

?123 

?456 

9789 y 
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(4) メッセージを表示する INPUT 文……例 3, 例 4 
INPUT と変数の間に，、'〃（ダブルクオーテーシヨン）で囲んだ文字列を人 
れると，その文字列を表示します.これをメッセージ文と呼びますが，これに 
よって入力すべきデータの名前を明示させれば，入カミスを少なくすることが. 
できます. 

では，例 3 の INPUT 文を実行させてみましょう. 


10 INPUT 、、 NENREI";A . 例3 

これを実行させると， t _ 


[ CLS ] 

ISHIFTJ ^ 

NENREI ?— 

のようになります.次にこの INPUT 文を下のように変えてみます. 

10 INPUT '' NENREI ", A 

これを実行させてみましょう. 


( CLS ) 

RUN 

RUN 逆 

NENREI 一 


このように，メッセージ文に続けて''?"(入力要求表示）を出したい場合は， 
メッセ— ジ文と変数の間の区切り符号に；（セミコロン）を使います. 


この INPUT 文をさらに発展させて， 2 つ以上の変数を書くことができます. 

10 INPUT ''SINCHO = // : X , '' TAIJL^'Y 

これは，次のような 2 つの INPUT 文を，ひとつにまとめたものと考えること 
ができます. 


10 INPUT ''SINCH 〇 = "; X ) 
20 INPUT 、' TAIJU=";Y j 

これを実行すると，次のようになります. 


—10 INPUT、'SINCHO = "; 
X， 、'TAIJU = "; Y 
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(CLSl 

( SHIFTl ^ 17 5逆 

6 5 

SINCH 0?175 

TAIJU ?65 一 

\ 


V 



■ メ ッセージ 文に使う文字列の文字数 

" v で囲んだ文字列の文字数は，行番号， INPUT 文を含めて 79 文字までです. 
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フ □ グラム•コマンド 

し ET (let : レット ) 


機 能 

変数にデータを代入する 

書 式 

LET 変数=式 


LET は，代入文の頭につける コマンドです. 一般には，次のような形で使用 
されます. 

( 例 1)LET A 二 10 LET A$= “GAME” 

( 例 2) LET X = SIN (S — PI/4) LET X$ = A$ + B$ 

代入文は，右辺のデータを左辺の変数に代入せよということですが，数値変 
数には数値式が，文字変数には文字式が対応します.この対応が正しく行なわ 
れていない場合は， TM エラーを表示します. 

■数値 変数への代入値の許容範囲 

数値変数に 10 1GG 以上の数値を代入することはでき ない. 

■文字 変数への文字数の許容範囲 

左辺が固定文字変数のとき—— 7 文字まで 
左辺が登録文字変数のとき—— 16 文字まで 
左辺が文字配列変数のとき—— 79 文字までの指定による 


■ LET は省略して使うことができる 

10 LET A =1 —> 10 A =1 と同じです 
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厂ブロヴラム•コマンド 

LOCATE (locate : ロケイト） 


機 有巨 

カーソルの位置を指定する 

書 式 

LOCATE X, y 0 ^ x<20) 0 ^ y<4 


PB — 700 の表示画面には，下のように 20X4 の表示位置があります.通常は， 
PRINT 文を実行すると，画面の左端から表示していきますが，この LOCATE 
コマンドを使うと，表示位置を自由に変えることができます. 


例えば， 

し〇 CATE 10, 3 

のように指定すると， 
カーソル No (10 ， 3) 


\ x 01 2345678 910111213141516171819 


y 


0 






















1 






















2 






















3 












糸 











の位置か寸旨定されたことになります•ただし， Y 座標に3を指定して表示させま 
すと，改行後 スクロールし ますので， スクロール させたくない場合は LOCATE 
19,3 ( 右下隅）以外は出力要素の最後に；（セミコロン）をつけてください. 


| リスト A | 10 X= 1 I リスト日 | 10 X=1 

20 X=X+1 20 X=X+1 

40 PRINT “X = ”； X 30 LOCATE 0, 0 

50 GOTO 20 40 PRINT “X = ’’；X 

50 GOTO 20 

リスト A を実行すると，次のような表示になります. 


数が画面の下から次々と現われ 

ご ^ 1T て，画面の上に消えていく 
X= 4 

X=5 _ 

リスト B のように， 30 行目を追加すると，画面の左上隅で X 二数字の数字の 
部分だけがどんどん増えていくような表示の形に変わります. 
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フ □ グラム•コマンド 


PRINT/LPRINT (巧 ルプリント) 


機 

有巨 

PRINT :画面への出力を行なう 

LPRINT ： プリンタへの出力を行なう 



PRINT 式〔，式〕 

書 

式 

PRINT 式〔；式〕 

LPRINT 式〔，式〕 

LPRINT 式〔；式〕 


PRINT と LPRINT 命令は，画面に出力するか，プリンタへ出力するかの違い 
で，他はほぼ同じ働きをします. 

ただし， TAB 関数を組合せて使うときは，少し違いが生じます. 


使い方 


PRINT 文を使えば，数値はもちろんのこと，文字や数式など，あらゆる形のデ 
一夕を表示させることができます. 

たとえば，次のように使います. 

PRINT 1.414^ 

PRINT A* 巳 - 2(^1 …… A ， B は変数なので，計算結果が出力される 

ここに示したような PRINT 文を実行すると，データを表示した後，改行が行 
なわれます.たとえば，次のプログラムを実行してみます. 

10 A=0 : B=3 
20 PRINT 1.414 
30 PRINT A* 巳一 2 
40 INPUT C 

すると，画面への表示は，次のようになります. 

fCLSl 
RUN 0^) 


RUN 


1.414 


一 2 


V __ 

__ ) 
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PRINT 文は，カンマ （，） を用いることによって，複数の式や文字列を表示 

させることができます. 

10 A=0:B=3 
20 PRINT 1.414, A 氺 B — 2 
30 INPUT C 

これを実行すると，前記の表示と同様に，1つのデータずつ改行されて出力 
されます. 



■ \ 

RUN 


1.414 


一 2 


? 


V 

_ ) 


PB — 700 の画面は 4 行ですが， 4 行目に出力すると，各行がロールアップさ 
れます. 


10 PRINT 1, 2, 3, 4 
20 END 


A 、 

RUN 

-- - - 

1 

Ready PO 2 

Q 

は ロールアップ される 

0 

」 


前述のカンマ（，）で区切ると，改行されて出力しましたが，セミコロン （；） 

により，複数の式や文字列を区切ると，次のように，続けて表示されます. 

10 A=0:B=3 _ 

20 PRINT 1.414 ; A*B-2 


1.414 一 2 

---\ 

Ready PO 


、 __ 

_ J 


この方法を利用すると，次のように，メッセージ付きのわかりやすい表示が 
できます. 

10 A=0 : B=3 

20 PRINT、、KOTAE = " ; A ネ巳一 2 
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30 END 


プログラム • コマンド / PRINT/LPRINT 




KOTAE ニー 2 


Ready P0 


V _ 

ノ 


これまでの出力例でもおわかりのように，文字出力，数値出力とも左つ、め 
で出力されます.ただし，数値出力は符号分1桁も合わせて出力するため，正 
の数値の場合は，+符号を省略した1桁がスペースとなります. 

ところで， PRINT 文には，表示位置や表示書式を指定できる， LOCATE 命 

命や TAB ， USING などの関数が用意され ています . 

10 C し S 
20 A =1 

30 し〇 CATE 9, 2 
40 PRINT A 
50 A = A +1 

60 IF A く100 THEN 30 
70 END 

0 9 19 


2 


上記の表示のように，キャラクター画面の （9,2) の座標の位置に 1〜99 の数 
値が連続的に表示されました. （9,2) の座標点には，符号分 スペースが 表示さ 
れています. 

10 C し S 

20 A =13 : B =5 : C =38 

30 PRINT TAB (5) ; A ; TAB (10) ; B ; TAB (15) ; C 
40 END 

0 
1 

2 
3 


RUN 厂 符号分のスペース ー丨 - — , 

△13 A5 A38 

—TAB(5) ~~> 

- TAB( I 0) -- 

二 TAB (丨 5) — > _ , 

10 19 
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:/ し 0CATE9, 2 
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このように， PRINT 文と TAB 関数を合わせて使うと， TAB 関数で指定した 
位置から，表示されます. 

また 次のように USING 関数のフォーマットに従って，書式をそろえて，表示 
することができます. 

10 A = 3.1415 : 巳 = 31.415 : C = 314.15 
20 PRINT USING 、'###.##"; A 
30 PRINT USING 巳 

40 PRINT USING '、###.##〃； C 
50 FOR 1 =1 TO 1000 : NEXT I 
60 END 


31.42 . 小数点第 3 位で四捨五入されている 

314.15 

V_ ! 


サンプル•プ 


•書式をそろえて，円の半径，円の面積， 


円周を表示するプログラム 


i0 CLS 

20 PRINT " R";TAB く乃； " S";TABU6); "L u 
30 FOR R=1 TO 9 

40 S=PI 木 R ハ 2 
50 L=2 木 PI 木 R 
60 PRINT R ； 

フ 0 PRINT " M ； : PRINT USING ,, ##tt.## ,, ； S ； 
: PRINT " "； : PRINT USING"##. 

80 NEXT R 
90 END 
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厂プ □ グラム•コマンド 

PUT (Put : プット ) 


機 能 

変数 データをカセツトテープに 書き込む 

書 式 

PUT 変数〔，変数〕 

PUT "ファイル名"変数〔，変数〕 


PUT 命令は，変数 データを カセットテープに記録する命令です.記録する デ 
一タ ファイルの 形式は，アスキー形式です. このデータファイルは ， GET 命令 
で読み込みます. 

(1) PUT A 〔， B ， C ……〕 

(2) PUT "URIAGE" A 〔，巳， C ……〕 

上記の書式のように，ファイル名を省略することができますが，省略した場 
合は，これに対応する GET 命令には，ファイル名はつけません.また，変数を 
カンマ （，） で 区切ることによって， 一つの PUT 命令で，複数の変数を，データ 
ファイルとして記録することができます.この場合データが記録される順番は， 
PUT の次に書いた変数のうち，前のが先になります.また，数値データは， U 
SING 関数を使用しない場合の画面への表示と，同じ内容が出力されます. 


使い方 


次のプログラムは配列変数 A ( 0 )〜 A (10) の内容を PUT 命令で記録するもの 
です.配列変数にはデータが入っているものとします. 


i0 REM PUT 


i0 REfl GET 

20 DIM AC10) 


20 Dlfl B(10) 

30 FOR K=0 TO10 


30 FOR K=0 TQ 10 

40 A(K)=K 


40 GET B(K) 

50 PUT A(K) 


50 PRINT ，, ) = ";B(K) 

60 NEXT K 


60 NEXT K 

70 END 


70 END 


次に GET 命令を使用して，カセットテープに記録した上のデータを PB -700 
に読み込む例です.この例では， FOR 〜 NEXT ループを使って， A の配列の内 
容を B へ移しています.なお，複数のデータを記録するときは，順番に十分気 
をつけて下さい. 

GET, SAVE 
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プ□ヴラム•コマンド 

READ/DATA/RESTORE ( リード / データ / リストア ) 


機 能 

READ : DATA 文で格納されたデータを読み込む 

DATA : READ 文で参照するデータ（定数，文字）を格納する 

RESTORE : DATA 文の実行順序を変更する 

書 式 

READ 変数〔，変数〕 

DATA データ〔，データ〕〔，、'文字データ"〕 

RESTORE 

RESTORE 行番号（数式）行番号く 10000 


READ 文は， DATA 文と組合せて使います. 

READ 文が実行されると， DATA 文からデータを変数に1対1で読み込んで 
いきます. 


使い方 


次の例は，最も簡単な READ/DATA 文のプログラムです. 

10 READ A 
20 READ 巳$ 

30 PRINT A ; 巳$ 

40 DATA 7，、' B 〃 

50 END 

このプログラムを実行すると，蛮数 A には7が，文字変数 B $ には'' B " が代 
入されます.変数の型とデータの型は一致していなければなりません. 

READ 文は，変数をいくつも続けて書くことができますので，1〇行，20行は， 
次のように，1行に置き換えることができます. 

10 READ A , 巳$ 

また，文字デーダは，上記のように，ダブルクオーテーション （"） で囲つ 
ても，次のように囲わなくてもかまいません. 

40 DATA 7,巳 
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ただし，この場合は，先頭の スペースが 無視されますので， スペースが 必要 
な場合は，ダブルクオーテーシヨンで囲わなければなりません. 

(例） DATA 7, '' uVuA ", y c 

' -このスペースは無視される. 

また，文字データの中には，上記の形を除いて，ダブルクオーテーシヨン 
r ) やカンマ （ ， ） は書くことができます. 

READ 文の変数と DATA 文は 1 対 1 に対応することが必要ですが，それぞれ 
の文の中に，変数やデータをいくつ並べるかは自由です. 

10 CLEAR 
20 DIM C (10) 

30 READ A ， 巳 
40 FOR 1 =1 TO 10 
50 READ C ( l ) 

60 NEXT I 
70 DATA 1,2,3 
80 DATA 4,5,6,7,8,9 
90 DATA 10，11,12 

このプログラムを 実行すると，次のように，各変数にデータが代入されます. 

A B C (1) C (2) C (3). C (8) C (9) C (10) 

12 3 4 5 .10 11 12 

もし， READ 文で読み込む変数の数よりも，データの数が少ない場合には， 
DA エラー となります.しかし，データの方が多い場合は エラー が発生すること 
なく，残りのデータは無視されます. 

また， DATA 文は， READ 文より前にあってもかまいません. 

次に， RESTORE 文を使うと， READ 文で言売む DATA 文を指定することがで 
きます. 

RESTORE 文には，行番号を書く形式と，書かない形式があります. 
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行番号を書かない場合は， RESTORE を実行すると，次の READ 文は最初の 
DATA 文からデータを読みます. 

10 READ A , B 
20 RESTORE 
30 READ C , D 
40 PRINT A ; 日； C ; D 
50 DATA 7, 2 
60 END 

このプログラムを 実行す ると， a = 7, B =2， C =7, D =2 のように代人 
されます. 

行番号を指定すると，使うデータ文を指定することができます. 

10 RESTORE 50 
20 READ A , B 
30 PRINT A ; B 
40 DATA 3.7, 6.5 

50 DATA 7.1, 9.3. io 行の restore で指定された data 文 

60 DATA 5,1 0.2 
70 END 

このプログラムを 実行すると ， a = 7.1 B = 9. 3が代入されます. 

なお， RESTORE 文の指定行番号には，变数や数式を使うことも可能ですが， 
変数や数式の値が DATA 文のある行番号となるようにしてください. 

次に，複数のプログラムエリアを動きまわるプログラムで， READ 文を使う 
場合には，次のような注意が必要です. 

P 0 10 READ A ， 巳 P 1 10 READ X ，丫 

20 GOTO PROG 1 20 PRINT X ； Y 

30 DATA 1,2,3,4 30 DATA 71,65 

40 END 

このプログラムを 実行すると，表示されるデータは，71，65ではなく，3， 

4 となります.つまり， GOTO PROG 1 で，プログラムの実行は， P 1 へ移っ 


202 





プログラム • コマンド / READ/DATA/RESTORE 


てはいるのですが， DATA 文だけは，まだ P 0 のものが使われているのです. 

このことは，サブルーチンプログラムで，メインプログラムの DATA 文を使 
うという場合にも役立ちます. 

もし，前述のプログラムで， X ， Y に71，65を読み込ませたい場合は， P 1 の 
プログラムの先頭に，次のように，行番号を指定します. 

5 RESTORE 30 

つまり， RESTORE 文には， DATA 文を使う順番と，プログラムエリアを指 
定する2つの働きがあります. 


サンプル•プ 


* エイリアンの移動プログラム 

10 CLS 
20 N=0 

90 FOR 1=1 TO 58 
100 READ X，Y 

110 IF X=0 THEN RESTORE ： N=N+17 -GOTO 100 
120 IF N=>140 THEN END 
130 DRAUKX 十 … 丫） 

140 NEXT I 
143 CLS 
145 GOTO 90 

150 DATA 5,15,6,15,7,15,8,15,3,15,10， 1 
5 

160 DATA 12,15,13,15,14,15,15,15,16, 15 
， 17，15 

170 DATA 5,16,10 ， 16,12,16, 1 フ ， 16 
180 DATA 8,17,3, 1 フ， 10 ， 1 フ， 11 ， 1 フ， 12, 1 フ ， 1 
3,1 フ， 14,17 

190 DATA 8,18,11 3 18,13,18,14,18 
200 DATA 3,13,10 ， 13,11 ， 13,12,13,13, 13 
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210 DATA 8,20 ， 3,20 ， 10 ， 20 ， 12,20 ， 13,20，1 
4,20 

220 DATA 3,21 ， 10 ， 21 ， 11 ， .21 ， 12,21;13,21 
230 DATA 3,22,10 ， 22,12,22,13,22 
240 DATA 6,23 ，フ， 23,8,23,3,23 ， 10 ， 23 ， 12,23 
， 13,23,14,23,15,23,16,23 
250 DATA 0，0 



このプログラムは，上記の表示例のようなキャラクターが，画面の左から右 
へ移動します. 

150行〜250行までの DATA 文は，1つのキャラクターを描くためのドットの 
座標データです. 

1つのキャラクターを描くと143行で消し，110行でデータを RESTORE して， 
位置を移動して同じキャラクターを描きます. 

これを繰り返し，画面の右端までくると，プログラムは終了します. 
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r ブ □ クラム • コマンド i 

REM (remark : リマーク ) 


機 有 I 

プログラムに注釈をつける 

書 式 

REM く注釈文〉 


REM コマンドは，他のコマンドと異なり何も実行しません. REM の後には， 
自由になんでも書くことができるので，下のように，プログラム中の要所要所 
にプログラムの説明を書き込み，リストを見たときプログラムの各部分の内容 
がわかるようにすることができます. 

10 REM *SEISEKI SHORI * 

20 DIM A (100) 


100 REM ホ PRINT OUT * 


500 END 

REM の後に書いた文字や記号は，全て注釈とみなされますので，マルチステ 
ートメントで，他の命令を続けることはできません. 
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厂プ □ ヴラム • コ ^37]^ 

STOP (stop : ストップ） 


機 能 

プログラムの実行を中断する 

書 式 

STOP 


プログラム実行中に STOP コマンドに行きあたると ， STOP メッセージを 
表示して，プログラムの実行が中断します.また， STOP コマンドで停止したプ 
ログラムは， CONT 命令を入力することにより，停止した次の命令から実行を 
再開することができます. 


使い方 


次のプログラムで，具体的な STOP コマンドの働きをみてみましょう. 


i0 A=1 ： B=5 

20 C=A 十 B 

30 STOP 
40 PRINT C 
50 END 


このプログラムを実行すると 

STOP P 0 - 30 

を表示します.つまり，プログラムエリア P 0の30行目で， STOP コマンド 
によって実行を中断していることを示しています. 

この状態のとき，次のようなことができます. 

A | ENTER— 1 > 1 A の値を表示する 

C | ENTER 1 —> 6 C の値を表示する 
つまり，変数の内容を見ることができるわけです.また， 

C = 0逆 

と入力して，変数に任意の値を代人することもできます. 

実際には，プログラムのデバッグ中に，動作の怪しい部分に STOP 命令を挿入 
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プログラム • コマンド / STOP 


してプログラムを強制的に止め，変数の内容を確かめるというような使い方を 
します. 

[2 STOP 命令実行中，次のことを行なっても， CONT により実行を再開する 
ことが可能です. 

① マニュアル計算 

② 変数への代入 （ LET をつけない代人） 

③ 変数内容の確認 

④ 次のコマンドの実行 

ANGLE, BEEP, CLEAR, CLS ， DIM, ERASE, PRINT, 

し PRINT ， TRON, TROFF 

囡 STOP 命令実行中，次のことを実行すると， CONT による実行再開はでき 
なくなります. 

① マニュアルコマンドの実行 （ ED ぼ， SAVE ， LOAD, LIST など） 

② PUT/GET の実行 

③ エラーを 発生させた場合 

CONT 
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D □ ブラム•コマンド 1 

TRON/TROFF ( trace-off :トレース • オフ 


機 有 I 

プログラムの実行状態を追跡する 

書 式 

TRON 

TROFF 




TRON , TROFF コマンドは，プログラムのデバッグ時に使われます. 

TRON …トレースモー ドの設定 
TROFF …トレースモードの解除 

トレー スモー ドが設定されると，現在実行しているプログラム エリ アの番号 
と，そのプログラムの行番号を下のように表示しながら，プログラムを実行し 
ます. 

表示〔 0:110 〕 

1 - 実行中のプログラム行番号 
し 実行中のプログラム エリ ア No. 

なお， TRON , TROFF はプログラムコマンドですので，プログラム中に書き 
込んで使えますが，通常はダイレクトモードで人力し，使用します. 

まず，下のプログラムを人力して，実行させてみて下さい. 


P0 

10 

BEEP 

1 

20 

GOTO 

PROG 1 

PI 

10 

BEEP 

0 

20 

GOTO 

PROG 0 
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プログラム • コマンド / TRON/TRQFF 


〔0 : 20〕 
〔1: 20〕 
〔0 : 20〕 


これを RUN させてみると， 2 つの BEEP 音が交互に鳴り始めます.ここで， 
[ MS キーを押し ， TRON 

を人力し，トレースモードにして下さい.人力が終ったら，続いて P 0 を RUN 
させて下さい.下のような表示で次つぎと，現在実行中のプログラムエリアと 
行番号を表示します. 


なお，巳 EEP 音の間隔がかなり開いていることからもわかりますが， トレ¬ 
ス モードでは， 実行速度が遅くなります. 

また， INPUT 文の実行時には〔エリア No: 行番号〕を実行後''?"を表示して 
停止します.また PRINT 文では，結果を表示します.このように，プログラム 
の実行過程を追跡することができますので，デバッグ時には大変便利なコマン 
ドです. 


i ~V i ~V /―\ 
0 0 0 
111 

0 10 
rv rk rv 
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厂文字関数丨 

ASC (ascii : アスキー） 


機 育6 

先頭1文字の10進コードを与える 

書 式 

ASC (''文字列"）または ASC (文字変数） 


パソコンで表示される文字や数字，記号 （ これらをキャラクターという）は， 
すべてアスキー•コードと呼ばれる背番号をもっています. 


たとえば， . 

“ A ，’ . 65 ( 番） （ 307 ページ • キャラクター.コード 

“巳” . 66 ( 番） 表を参照してください） 

“6” . 54 (香） 


. のようになっています. 

このようなキャラクターの背番号（コード）を知りたいとき，キャラクター • 
コード表を見てもよいのですが， “ ASC ” 関数を使って，直接，パソコンに 
聞くことができます. 


使い方 


PRINT ASC (“ E ”） 』 

…とキー入力すれば，キャラクター “ E ” のアスキー.コード…… 

69 

……が表示されます. 

欲ばって，2つ以上のキャラクター.コードを知りたいと思い…… 

PRINT ASC (“ EF ”） _ 

……とキー人力しても，結果は，最初に入力した.“ E ” のキャラクター.コー 
ドしか表示してくれません. 

したがって，長い文字列（たとえば， “ A 巳 CDEF .’’） を，頭から次つ 

ぎと知りたいときは， MID $ 関数を使ったプログラムで表示させるとよい 
でしょう （ MID $ の項参照）. 
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文字関数 / ASC 



籲キャラクター • コードを次つぎと表示するプログラム 


10 REM ASCII CODE 
20 CLS 

30 INPUT "WHICH CHARACTER "; A $ 
40 PRINT ASC ( A $) 

50 GOTO 30 


このプログラムは， 30 行でキャラクターを入力すると，40行でそのコードを 


表示します. 50行で再び30行にもどりますので，次つぎとキャラクターを入力 
して，そのコードを知ることができます. 

実行結果は，次のようになります. 


実行例 


WHICH CHARACTER? A 
65 

WHICH CHARACTER? T 
84 

WHICH CHARACTER? R 
82 

WHICH CHARACTER? 7 

5PS 

WHICH CHARACTER?1 
49 


このプログラムは，無限にキャラクター入力を要求してきますので，止める 


ときは， 旧 Rg ] キーを押してください- 


参照 


CHR $ 
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G 文字関数 j 


CHR$ 


(characters : キャラクター • ダラー） 


機 能 

アスキー . コードの 1 文字を与える 

書 式 

CHR$ (数式） 0 ‘ 数式 <256 


CHR$ は，アスキー.コードを指定することにより，キャラクター（文字， 
数字や記号）を引き出す関数です. 


使い方 


PRINT CHR $(66) ^ 

. とキー人力すると，アスキー.コード66番のキャラクター“ 已 ” が表示さ 

れます. 

2つのキャラクターを一度に知りたいときは . 

PRINT CHR $(71)； CHR $(80) 過 

……のよう にキー 入力すれば，アスキー. コー ド71および80に対応するキャラ 
クター “G” および “P” が連続して表示されます. 

PB — 700でキーからダイレクトに入力できるキャラクタ—は，数字，英大文 
字，英小文字，および一部の記号などですが，その他のキャラクター（たとえ 
ば，カタカナ，記号，グラフィック記号など）は，この CHR$ を用いて表示さ 
せます（巻末.キャラクター•コード表参照）. 

なお， CHR$ で指定できる数字（数式）は 0 S 数式 < 256の範囲内で，小数 
点は無視されます. 


サンプル•プ 


參キャラクター.コード33〜254のキャラクターを表示するプログラム 

5 U=0 

10 FOR 1=33 TO 254 
20 PRINT I 
30 U=U 十 1 

40 FOR J=1 TO14 
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文字関数/ CHR $ 


50 PRINT CHR$(I); 

60 NEXT J 
70 PRINT 

80 IF U<3 THEN 110 
90 K$=INKEY$：IF " THEN 90 
100 U=0 
110 NEXT I 
120 END 


このプログラムを RUN すると，キャラクター•コード 33 〜 35 に対応するキャ 
ラクターが，14個ずつ表示され，一時中断します.続いていずれかのキーを入 
力すると，次の3コード分のキャラクターが14個ずつ表示されます.この操作 
を〈り返し，254番のキャラクターの表示が終わると，プログラムは終わりま 
す.実行例の一部を下に示します. 


33 

i I I I I I I I I I I I I I 

• | • t I I I I I I I I I | 

34 

ii H ii M n ii n ti ii ii it M it ii 

35 

############## 

36 

$$$$$$$$$$$$$$ 

37 

% % % % % % % % 


参照 


ASC 
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厂文字関数丨 

VA し (value : バリュー） 


機 有巨 

文字列を数値に変換する 

書 式 

VAL (、、文字列〃）または VAL (文字変数） 


VAL は，文字列を数値に変換する関数です. 

いささか変った関数ですが，この関数を理解するには，まず，文字と数値の 
違いについて，説明しておかなければなりません. 

次の2つのプログラム例を比べてみてください. 


プログラム①一 


- プログラム ②— 

10 READ A，B 


10 READ A$ ， B$ 

20 C=_ 


20 

30 PRINT C 


30 PRINT C$ 

40 END 


40 END 

50 DATA 3,5 


50 DATA 3,5 


プログラム①では，数値変数 A ， B に，数値データを読み込み，演算の結果 
を C に代入して，表示させています. 

RUN させた結果は，もちろん…… 

u8 

…… となります. 上記の^は スペースを 表わすために記しておきましたが，こ 
こには“+”という符号が入るはずのものが省略されています. 

一方， プログラム② では文字变数 A $， B $ に，3,5をそれぞれ読み込み 
ますが，ここでは，数値データとしてではなく文字データとして読み込まれ 
ます. 文字列演算は足し算のみが可能で，その結果が C $ に代入されます. 

このプロ グラムを RUN させると…… 

35 

……と表示されます.この結果は，単なる文字列の表示にすぎません.その証 
视(， “ 一，’ の符号や，“ + ”の符号が人る予定の1文字分の空白がありませ 

ん. 
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文字関数 / VAL 


プログラム④一 

10 FOR 1=1 TO 10 
20 READ M 
30 PRINT A $； 

40 NEXT I 
50 END 

60 フ， 21 

70 DATA 223, 18,8,1，0 


38 - 6 フ2122318810 


使い方 


前述のプログラム②のように，文字変数 A $， B $ に読み込まれた数字を使 
ってプログラム①のような演算を行なうときは， VAL 関数を使って，次のよ 
うに変更すれば可能です. 


この空白は，重要な意味をもっています.次のプログラム③，④の実行例を 
比べると，その差がはっきりするでしょう. 

- プログラム ③— 


10 FOR 1=1 TO 10 
20 READ A 
30 PRINT ft ； 

40 NEXT I 
50 END 

60 DATA 3,8，-6, フ， 21 
70 DATA 223, 18,8,1，( 


8 

8 

IX 

3 

2 


ix 

2 

7 

6 

I 

8 0 
31 


例 

行 

.Oil/ 


215 























文字関数 / VAL 


10 READ A$ ? B$ 

20 C=UAL(A$)+UAL(B$) 
30 PRINT C 
40 END 
50 DATA 3,5 


RUN すると，プログラム①と同様 “ u 8” が表示されます. 


なお， VAL 関数を使用するときは，次の点に注意してください. 

① 文字列の中に，数値，小数点，符号 （+, —），指数部の E 以外の文字 
が出現した場合には，それ以後の文字はすべて無視されます. 

( E が2度以上出現した場合も，同様に無視されます） 

② 文字列の中の先頭のスペースは読みとばす. 

③ 文字列の先頭が数値，小数点，符号でない場合，また文字列が符号，小 
数点のみの場合は0を与える. 

④ E の後に数字が3つ以上ある場合は SN エラーとなる. 



暑メニューナンバー1〜5の入力要求のとき，どんなキーが押されてもエラ 
一の出ない入カサブルーチン 

100 Z$=INKEY$：IF 2$="" THEN 100 
110 IF THEN 100 

120 IF Z$>"5" THEN 100 
130 GOSUB UAL(Z$)*1000 
140 — J 

このプログラムは， 1 〜 5 の キーが 押されると，1000〜5000行の各サブ ルー 
チンへ飛び，それ以外の キーが 押されると再入力を要求し， エラーは 起きませ 
ん.メニュー選択のときの入カルーチンとして利用すると便利です. 


参照 
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[I 文字関数 I 


STR$ 


(string $ : ストリング • ダラー） 


機 能 

数値を文字列に変換する . 

書 式 

STR $ ( 数式） 


STR $ 関数は，数値を文字列に変換します. 


使い方 


プログラム①および②の実行結果はどのようになるかわかりますか. 


プログラム①一 


プログラム ②- 

10 A=25:B=30 


10 A=25 ： B=30 

20 C$=STR$(A+B) 


20 C$=STR$(A)+STR$CB) 

30 PRINT C$ 


30 PRINT C$ 

40 END 

40 END 


2 つのプログラムは，同じように見えますが，①は “55” と表示され，②は 
25 30”と表示されます. 


プログラム①は，数式 A + B の結果を STR $ 関数で文字列に変換している 
のに対し，プログラム②は，数値変数 A ， B の内容をそれぞれ文字列に変換 
したのちに，たし算をしています.この違いが，実行結果の違いとして表われ 
ています. 


サンプル • プログラム 


籲たし算練習プログラム 


10 REM TASHIZAN 
20 FOR 1=1 TO 5 
30 X=INT(RND*100) 

40 Y=INT(RND*100) 

50 Z=X+Y 

60 PRINT STR$(X )； ,l + " ； RIGHTS(STR$(Y) , L 
EN(STR$CY))-1 )； 

70 INPUT " = 
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文字関数/ STR $ 


80 IF A=Z THEN PRINT " OK " ELSE 60 
90 NEXT I 
100 END 

(RIGHTS, LEN の項參照） 

このプログラムは， 2 桁までの整数のたし算プログラムです. 

全部で5問出題されますが， RND 関数を使っているので，たす数，たされる 
数に何が出てくるかわかりません. 

60行に STR $ 関数を使っていますが，ここで問題を表示します. 

別に， STR $ を使わずに…… 

60 PRINT X ;“ + ”； 丫； 

……としてもよさそうですが，この方式ですと，次のように，数値の前に， 
符号分の空白が生じ，不_然になります. 

ui5 + ^30 = ? 

この点が， STR $ 関数を使うか，使わないかの違いです. 


参照 


VAL ( STR $ 関数の逆の関数が VAL 関数です.） 
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厂文字関数 1 

し EFT$ (left $ : レフト • ダラー） 


機 能 

文字列の左から指定文字数取り出す 

書 式 

LEFTS ( 文字式，数式） 

LEFTS じ文字列 ", 数式） 

LEFTS ( 文字変数，数式） 


LEFT $ は，文字式で表わされる文字列の左から指定した数だけ文字列を取り 
出す関数です. 


使い方 


10 AB $ = “LEFT RIGHT ” ……代入する文字列が7文字以上のた 
20巳 $ = LEFT $ ( A 巳$,4) め，登録変数 （ 丨6文字まで代入で 

30 PRINT B $ 吏っていることに注意し 

RUN すると， “ LEFT ” が表示されます•つまり， AB $ の文字列の左から4 
文字が取り出されています. 

なお，取り出す文字数に0を指定するとヌルが与えられ，存在する文字数以 
上を指定すると ST エラーと なり ます. 

また，変数や数式でも取り出す文字数を指定することができます. 

実行例 


サンプル•プ 


>文字列の表示を，順番に増やすプログラム 


10 

AB$= n READ LEFT" 

20 

N=LENCAB$) 

30 

FOR 1=1 TO N 

40 

BC$= し EFT$(AB$ 3 I) 

50 

PRINT BC$ 

60 

NEXT I 

70 

END 


RIGHTS 


R 


RE 


REA 


READ 


READ 


READ 

し 

READ 

し E 

READ 

し EF 

READ 

LEFT 
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厂文字関数 1 

RIGHT $ (right $ :ライト•ダラー） 


機 育6 

文字列の右から指定文字数取り出す 

書 式 

RIGHTS (''文字列"） RIGHTS (文字変数） 


RIGHT $ は，文字変数に代入されている文字列を，右から指定した数だけ取 
り出す関数です. 


使い方 


10 A 巳$ = “LEFT RIGHT ” ……文字列が 7 文字以上であるため登 
20 B $ = RIGHT $( AB $,5) 録変数を使つていることに注意し 

30 PRINT B $ 

プログラムを RUN すると，” RIGHT ” が表示されます.つまり， AB $ の文字 
列を右から 5 文字取り出したことを示しています. 

なお，取り出す文字数に0を指定するとヌルが与えられ，存在する文字数以 
上を指定すると ST エラーと なります. 

また，文字数として変数や数式で指定することもできます. 



拳文字列の間に文字列をはさみ込むプログラム 


10 AB$="ASA 丫 ORU " 

20 BC $=" HIRU " 

30 CD $= LEFT $( AB $ j 3) 

40 CD $= CD $ 十""十 BC $ 

50 CD $= CD $+ RIGHT $( AB $,5) 
60 PRINT CD $ 

70 END 


実行結果 


ASA HIRU YORU 


このプログラムは， LEFT $ 
と RIGHT $ を使い， AB $ の文 

字列の間に， BC $ の文字列 
をはさみ込んでいます. 


参照 


し EFT $ 
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字関数 1 

MID$ (mid $ :ミツド•ダラー） 


機 能 

指定した位置から右へ指定数だけ文字列を取り出す 

書 式 

MID $ (、、文字列"，数式 1 ，数式 2) 

MID $ (文字変数，数式 1 ，数式 2) 


MID $ は，文字変数の文字列を，左から何文字目かを起点として，そこから 
何文字かを取り出す関数です.ちょうど， LEFT $ と RIGHTS を合わせたよ 
うな機能をもつ関数です. 


MID $( A $, 3,2) 

l ~ A $ の文字列 I の I 左から3文字目 I 〜 ( J _ 文字_分 I 取り出す 


使い方 


10 

20 

30 

40 

50 

60 


CLEAR 

關 _* 20 …… 

A $(0) = “LEFTuCENTERu RIGHT ” 
B $ = MID $( A $(0),6,6) 

PRINT B $ 

END 


このプログラムを RUN すると， A $ ( 0 ) の文字列の 6 番目から 6 文字分が 
取り出され， “ CENTER ” が表示されます. 


MID$ 関数を使うときは，次の点に注意してください. 

MID$ (文字式， n, m) とすると…… 

① n , m の小数部は切り捨てた値となる. 

② m が0の場合，および抜き出す文字がない場合は，ヌルを与える. 

③ ， m が省略された場合は， n 番目以後をすべて与える. 

④ m が残りの文字数を超えた場合は ， n 番目以後をすべて与える. 

⑤ n が文字長より大きい場合は，ヌルを与える. 

⑥ n および巾は，変数や数式を用いることができる. 

⑦ n が丨 S n く256， m が0 S m <256の範囲を越えた場合はエラー （BS error ) 
となる. 
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文字関数/ MID $ 


サンプル•プ 




春文章中にアルファベットの小文字 r がいくつあるかを数えるプログラム 


10 DIM く 0) 木50 

20 N =0 

30 INPUT " DATA ="; A $(0) 

40 M = LEN ( A $(0)) (len の項參照） 

50 FOR 1 =1 TO fl 

60 IF f 1 ID $( A $ C 0) 3 I j 1)=" r " THEN N = N +1 
70 NEXT I 
80 PRINT N 
90 END 

このプログラムは，英文を人力して，小文字の“「”がいくつあるかを数え， 
その数を表示します. 

入力できる英文の文字数は，50文字までで，スペースも文字数に含みます. 


たとえば，…… 

Learning^jtOL_^master._ J your^-.CASIO l _ J Personalu_jComputer 

……のような文章を入力しますと，最初の文字から1字ずつ，“「”と一致し 
ているかどうかをチェックして，一致している数をカウントします. 

上記の文章を入力すると， “5” と表示されるはずです.ためしてみてくだ 
さい. 


参照 


し EFT$，RIGHTS 
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b 字関数 1 

し EN (length :レングス） 


機 能 

文字列の長さを与える 

書 式 

LEN (文字式) 

LEN r 文字列")または LEN (文字変数） 


LEN (±,文字変数に代入されている文字列の長さ（個数）を与える関数です. 


使い方 


CLEAR 或 
PRINT し EN ( A$) ㉝ 

……のようにキー入力しますと，“0”と表示されます. 

つまり， CLEAR コマンドで変数 A $はカラッポになっているから，当然 
ですね. 

八已$ = ” CASIOuC 〇 MPUTER ” _ 

PRINT LEN ( AB $) 

今度は，“14” と表示されます. 

LEN 関数で与えられる値は，〇〜 79 の範囲内です. 


サンプル•プ 


參文字列を右^^めで表示する. 


10 INPUT _ 

20 L =20- LEN ( AB $) 

30 LOCATE L ，3 

40 PRINT : LOCATE 0，0 

50 END 


このプログラムは文字列を入力すると，画面の右つ、めで表示されます.入力 
できる文字数は 16 文字までです. 
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厂文字関数 I 

INKEY$ ( in - key $ :インキー • ダラー） 


機 能 

キーボードからの 1 文字を入力 

書 式 

INKEY $ 


INKEY $ 関数は， INPUT 命令と似た役割をする入力命令の一種ですが，そ 
の働きは多少異なっています. 

INKEY $ 関数で，データを入力できるのは， INKEY $ が実行しているときだ 
けで，押したキー（データ）を1文字だけ，文字として入力します.キーが押 
されていなければ，何も入力されない（ヌル）状態で次の命令の実行に移り 
ます.また，データ入力の際，逆キーを押す必要はありません. 


INKEY $ と mPUT の違いを次に示します. 


使い方 

INKEY $ 

INPUT 

命令実ィ了時の表不 

何も表示しない 

?一(入力要求メッセージ.ただし 
?は表示させないことも可能） 

データの入力 

命令実行時に押されたキー. 
(押されていなければ未入力） 

が押されるまでに入力した 
データ 

データの種類 

文字として丨文字 

数値，文字など変数の範囲内の 
桁および文字数 

次の命令の実行 

即実行（』不要） 

が押されるまで中断 


使い方 


INKEY $ は押したキーを文字として扱いますので，一般に…… 

文字変数= INKEY $ 

……のような代入式の形で使います. 

100 A $= INKEY $ 

110 IF A $ = '、"THEN 100 
120 IF A $ = '、 E"THEN END 
130 . 

このプログラムは， '、 E 〃 のキーが押されたら終了し，その他のキーが押さ 
れたときのみ，次の命令の実行に移ります.キーが押されなければ，100〜110 
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文字関数/ INKEY $ 


行をぐるぐる無限に回転します. 

なお INKEY $ は [ BRK ] キーを除くすべてのキーを読み込みますが， ISHIFT 1 
キーと [ CAPS ] キーはヌルとして処理されます. 




また， [ SHIFT 1 キーもしくは， [ CAPS 1 キーと他のキーが同時に押された場 
合は，シフトモードもしくは，キャピタルモードにおけるキャラクターが与えら 
れます.ただし，ワンキーコマンドはヌルを与えます 


グラム 


籲決められた文字数だけを，文字変数に読み込むサブルーチン 


10 AB$= nM 
20 FOR 1=1 TO16 
30 K$=INKEY$ 

40 IF K$= ,M, THEN 30 
50 IF K$=")T THEN 80 
60 AB$=AB$+K$ 

70 NEXT I 

80 S 


文字変数には，決められた範囲の文字数しか代入できません. 

INPUT 文で，適当に文字列を入力して いくと， 決められた範囲の文字数を 
越えると ， UV エラーと なってしまいますが， このプログラムでは， 16文字ま 
で入力すると，それ以上は入らず，次の命令 （80 打以降）へ移ります. 

また，16文字以内で止めたいときは，を入力す ると， 次の命令（ 80 行 
以降）へ移ります.上記のプログラムの80行に…… 

80 PRINT AB $ 

……として，ためしてみてください. 
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文字関数/ INKEY $ 


P 0 10 A $= INKEY $ 

20 IF A $='、0" THEN 100 
30 IF A$=、T THEN 200 
40 IF A $=''2" THEN 300 
50 GOTO 10 


以上のプログラムの場合 dFIFTl § で実行させると，@を押し続けている 
間に10行目の INKEY $ で0を読み込みますので御注意下さい. 


参照 


INPUT 










厂表示用関数丨 

TAB (tabulator * タブ) 


機 育 g 

指定された位置までカーソルを移動させる 

書 式 

TAB (数式） 0 S 数式<80 


PRINT 文および LPRINT 文中で使い，カーソルを移動させ，所定の位置へ 
表示させる関数です. 


使い方 


10 FOR X=1 TO 5 
20 PRINT X ； “a 2: ”； 

30 PRINT TAB(10);X^2 
40 NEXT X 

このプログラムを RUN させると…… 

△1 と ：!_II_II__II_ IL__J^ 1 

A2^2 : uui _ jui _ iA 4 △は+符号の省略された スペース 


TA 巳 (10) 

. のように表示されます. 

上記のように， TAB(10) と指定すると，10桁目までカーソルを移動し，そ 
の直後から次の表示が始まります. 

なお， TAB で指定できる値は，0以上〜80未満の値で，この範囲内の値をと 
るものであれば，変数や数式でもかまいません. 

また，小数値は小数点以下が切り捨てられます.さらに，現在の表示位置（力 
—ソルの位置）から指定された位置までの間は，スペースを置きます. 


サンプル • プログラム 


•アスキーコードと対応するキャラクターを所定の位置に表示する. 


10 FOR 1=33 TO 254 
20 PRINT " ASC " ； 

30 PRINT TAB (5)； I ； 
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表示用関数 / TAB 


40 PRINT TAB (13); ' THR *' ； 
50 PRINT TAB (19)； CHR $( I ) 
60 NEXT I 
70 END 


このプログラムを RUN させると，次のように表示されます. 

ASO I_ it _ ■△o3i _ it ~II―II~II~~ I v^Hi' I_II__II_ 

L I 

I" 

TA 巳⑸ 


TA 巳 （13) 


TAB(19) 

a キーを押すと，次のコードとキャラクターが同じ位置に表示されます. 

表示位置の与え方 

1. 行の左端を 0 として，文字単位でひとつずつ，右に向って増加するよう 
に数えます. 

2. 現在の位置より左の方が指定されると，次の行へ改行し，その行の先頭 
から数えた位置が指定されます. 

3. 1行の範囲を超えた位置が指定されたとき，現在の行の先頭から数えた 
位置が指定されます. 


参照 


USING, PRINT, し PRINT, LOCATE 
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表示用関数丨 

USING (using :ユージング） 



機 能 

表示書式（フォーマット）を指定する 

書 式 

USING 、'フォーマット文字列"； 


USING 関数は， PRINT 文もしくは LPRINT 文中で，数値や文字列などを 
指定した一定の書式（フォーマット）に統一して表示します. 


使い方 


数値を何行かにわたって表示させるとき，桁や小数点などがずれて表示され 
ることがあります. USING 文を使うと，次のようにそろえることができます. 

10 A = 18.5 
20 B = 2.67 


30 C =135.78 


40 PRINT USING 
50 PRINT USING 
60 PRINT USING 
70 END 






このプログラムを RUN させると， 

■ ~~ M ~I 18. 500 


|_ ii __ ii _ ii _I 乙 . 〇 /0 

uu 1 3 5. 780 

……のように表示され，大変わかりやすくなります. 

ここで用いられているや、、."がフォー マッ ト文字列です. 

同様に文字列の表示にも使うことができます.文字列のフォーマット文字列 
は&を使います. 

10 A 巳$= 、、 CASI 0 uC 〇 MPUTER " : B $= 、、！！" 

20 PRINT USING 、、&&&&&&&&&&&&&&"; AB $ ;巳$ ; 

30 END 

このプログラムを RUN させると…… 

CASIOuC 〇 MPUTERuu !! 
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……のように表示されます. 

CASIOuCOMPUTER の文字列の数は14個ですが，フォーマット文字列&が 
16個書かれていますので，余分の2字分が空白となって表示されています. 
USING 文の使い方の注意を次に述べておきます. 

(1) フォーマット文字列中には， 、、 iT 、' •"、'八"''以外の文字を書くことはで 
きなぃ. 

(2) 、'林"、'."、と''も"は混在することができない. 

(3) 数値フォーマット指定 

#……数値の桁指定 
. ……小数点指定 
へ . 指数部表示指定 

① #の数は小数点より上位は13桁以内，下位は9桁以内とし，上位と下位 
を合わせて13桁以内で指定できる. 

称社###########. 9 .個 

' ^ \######### 

13個 

② 負符号も#の中に含めて指定する. 

③ A は末尾に書き，いくつ書かれていても同じ書式になる. 

④ 小数部の桁数が，フォーマットより長い場合は，指定桁の次の数値を四 
捨五入して出力する. 

PRINT USING 12.3456岭 12.346 

⑤ 整数部の桁数がフォーマットより長い場合は，先頭に％がついて，フォ 
—マットに従わずに出力される. 

PRINT USING '、##•##";1234.56岭96^1234.56 

⑥ 数値は右づめで出力される. 

(4) 文字列フォーマット指定 &. 

① &の数はいくつ書いてもかまわない. 

② の数が文字列に対して少ない場合は，文字列の先頭から&の数だけ 

出冕する. 

PRINT USING 、、&&&"; 、、 ABCDEF "岭 ABC 
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表示用関数/ USING 


③ 文字列は左づめで出力される. 

④ &の数が文字列より多い場合は，スペースを出力する. 

(5) USING 指定は，1つの PRINT 文，もしくは LPRINT 文中のみで有効. 

(6) USING 指定の変更は，新たな USING 指定により行なわれる. 

(7) USING '、"； により， USING 指定を解除することができる. 



•文字列の各文字間にスペースをとって表示するプログラム 


10 A $=" CASIO ,! 

20 PRINT 

30 FOR 1=1 TO LEN ( A $) 

40 n $= niD $( A $ j 1，1) 

50 PRINT USING ,, & gc &"； n $； 
60 NEXT I 
70 PRINT 
80 END 


このプログラムを RUN すると …… 

CASIO 

w i 11 i A i — 11 i o i 11 1 1 i 11 1 0 

. のように表示されます. 

MID $ 関数で，文字列を 1 文字ずつ取り出し，取り出した文字を， USING 
関数のフォーマットによリ表示させています. 


サンプル • プログラム 


•名前，身長，体重を一定のフォーマットでプリンターへ出力するプログラム 


1100 REM 木** USING *** 

1110 CLEAR : Din A $( l )， A !(1>， B ! ⑴ 
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表示用関数/ USING 



1120 FOR 1=0 TO 1 

1130 INPUT "NAP1E"5A$(I)，"SINCHIYO (cm〉" 
: A! (I 〉， "TAIJU(Ks)" ； B!(I) 

1140 LPR1NT : NEXT I 
1150 FOR 1=0 TO1 

1160 LPRINT T^BC2) ； USI N6 M &&&&&&&&&&&&&& 
&"； 

1170 LPRINT USING ,, ###### ,, ； A! <I )； 

(I) ； "Ks" 

1180 NEXT I 
1190 END 


ASASIO 

TAROU 

190cm 

185Kg 

FUKAVA 

HIROKI 

68cm 

7Kg 
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厂表示用関数丨 

POINT (point :ポイント） 


機 能 

ディスプレイ上のドットが点灯しているか否かを与える 

書 式 

POINT ( x , y ) 

0^ x ^159 (水平位置） 

0 ^ y ^31 (垂直位置） 


表示されている画面を見ると，小さな正方形の点で，文字や記号などが構成 
されていることがわかります. 


たとえば， A というキャラクタは 


…となっています. 

これらの 1 つ 1 つの点をドット ( dot ) と呼んでいます. 

画面全体は， 5120 ドットで構成されています. 

(0，0) X = 160 ドット （159，0) 


X = 32 ドット 

(0，31) _ J (159,31) 

いま，横をズ軸，縦をツ軸とすると，画面上の1ドットは…… 

座標（ X ， y ) 

…"で表わすことができます. 

この [ x , y 、 の座標で示されるドットが点灯しているか消えているかをチェ 
ックし，点灯していれば1，消えていれば〇を与える関数が， POINT 関数です. 


使い方 


10 X =0: Y =0 
20 A = P 0 INT ( X , Y ) 
30 PRINT A 
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表示用関数 / POINT 


このプログラムを RUN すると，もし，（0，0 ) のドットが点灯していれ 
ばを表示し，消えていれば。0〃 を表示します. 

POINT 関数の使用にあたっては，次の点を注意してください. 

① x および y は，小数点第丨位を四捨五入した値が用いられる. 

② x および y が座標の範囲を超えた場合は BS エラーとなります. 


サンプル • プログラム 


• レーザ砲プロ グラム 

igpc ] キーを押してレーザー砲を発射させ，動いて いる 点を打ちます. 

100 CLS 

110 X = INT ( RND *10)+75 

120 DRAUJ ( X ，0): DRAU (80，23)-(80， 31 ) 

130 N $= INKEV $ 

140 IF N $=" M THEN GOSUB 300 
150 DRAUC ( X ，0) 

160 GOTO 110 

300 DRAUI (80，28)-(80，1) 

310 A = POINT (80，0) 

320 IF A =1 THEN LOCATE 0，3 :PRINT " BEE ! 

BEEP 

330 DRAUC (80，28)-(80,1) 

340 FOR 1=0 TO 30 ：NEXT I 
350 CLS : RETURN 
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値関数 i 

SIN (sine : サイン） 


機 能 

x の正弦 sin x を与える 

書 式 

SIN 数式 一 5400° <数式<5480° 


SIN 関数は， x の正弦 sin x を計算します. 
x は 3 つの角度の単位 （ DEG , RAD , GRA ) を選んで使えます. 

電源スイッチを ON にした状態では，角度の単位は DEG (度）になっています. 


使い方 


DEG (度）を使って， SIN X の計算をしてみます. 

10 PRINT SIN 30 
20 PRINT SIN 45 
30 PRINT SIN 90 
50 END 

このプ d グラムを RUN (00)(0(^) あるいは ( SHIFT ] ) すると， 

SIN 30 と SIN 45 の結果が流れるように表示され，見えなくなってしまいます. 
では，次の行を追加して，再び RUN してみてください. 


25 STOP 

結果は， SIN 30, SIN 45 の 結果が表示され， ストップ します. 


■実行 例 

0.5 


0 . 7071 0678 12 


STOP P 0 - 2 5 

V —_ J 

続,きが見たいときは， CONT^] か |SHIFT| e (i) T _と押すと，次の結果が 
表示されます.（參照 CONT 130 ページ） 

■実行 例 

r -- 

1 


Ready P 0 


23 ^ 




























次に，角度の単位 （ DEG ， RAD , GRA ) のいずれかを選んで，その後で， 
SIN x の計算を行なってみましょう. 


10 

REN SIN X 

EXAMPLE 

20 

PRINT 

n ANGLE ゴ； 

30 

INPUT 

K 


40 

ANGLE 

K 


50 

PRINT 

"SIN 

X ： X = n ； 

60 

INPUT 

X 


70 

PRINT 

"SIN* 

' ； X； U = M ；SINX 

80 

STOP 



90 

END 




このプログラムを RUN すると，最初に…… 

ANGLE = ? 

……と角度と単位を聞いてきます. 

そこで，次のように，角度の単位を指定してやります. 

ANGLE 0 —> DEGREE (ディグリー：度） 

ANGLE 1—> RADIAN ( ラジアン） 

ANGLE 2 —> GRADIENT ( グラディエント） 

ためしに，ラジアンでやってみます.、、1"を入力すると…… 

SIN X : X 二？ 

……と再び聞いてきます.そこで，たとえば， （ PI /4) のようなラジアンの角度 
を人力すると，次のように結果が表示されます. 


SIN 0 . 7853981634= 0 . 

7071067812 

STOP P 0-8 O 
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数値関数 / SIN 

以上のように，角度の単位を変更するときは， ANGLE コマンドを使います 
が，各角度の単位に入力できる範囲は，次のように制限されています. 


DEG 

-5400° 

< 

数式 < 

5490 。 

RAD 

一 30 7T 

< 

数式< 

30 7T 

GRA 

一 6000 

< 

数式< 

6600 


数式の値が上記の範囲を外れた場合はエラー （BS error ) となります. 

なお，引数には実数（たとえば， 30 など）の他に，変数や数式が使えます. 
実数や変数1つのときには，引数をカッコで囲っても，囲わなくても，どち 
らでもよいのですが，数式のときには，カッコのあるなしで，結果が違ってき 
ますので注意が必要です.たとえば…… 

SIN X + Y …… SIN X の計算結果に Y をたし算する 
SIN ( X + Y) …… X + Y の計算結果の SIN を計算する 
. のようになります. 


參照 


ANGLE ， COS , TAN 


一ロ メモ 

三角関数の角度の表わし方には，''度 （ deg)' 、'ラジアン （「 ad )， 
グラディエント （ g 「 a )〃 の 3 種類があります. 


度。 . 丨°は円周の 1/360 

rad . I rad は円周の 1/2 ;r 

gra . I gra は円周の 1/409 


主に使う角度は，度とラジアンですが，その関係は… 

1° =;r/180「ad = 3.141592654 /I 80 rad 

…です. 
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r 数値関数 i 

COS (cosine : コサイン） 


機 能 

X の余弦 COS X を与える 

書 式 

COS 数式 一5400° <数式<5400° 


COS 関数は， X の余弦 COS X を計算します. 

COS X の 角度単位，引数 X の 入力範囲に ついては， SIN X とまったく同じ 
です. 


使い方 


COS X を使った，ブログラムを入力してみましょう. 


10 

REH COSX EXAMPLE 

20 

PRINT 

,, ANGLE= ,1 ； 

30 

INPUT 

K 

40 

RNG し E 

K 

50 

PRINT 

••cosx; x="; 

b0 

INPUT 


70 

PRINT 

"COS"; X ; " = , ' ； cosx 

80 

STOP 


30 

END 



このプログラムを RUN すると，次のように•"… 

ANGLE = ? 

……と角度の単位の入力を要求してきます. 

そこでたとえば，ダラジアンの単位で求めようとするときは”之"と入力し 
ます.すると，次のように角度を聞いてきますので，1355を入力してみます. 

cos X : x = ? 

結果は， 一 0.7604059656となります. 


参照 


SIN, ANGLE, TAN 














r 数値関数 i 

TAN (tangent : タンジェント ) 


機 能 

x の正接 TAN x を与える 

書 式 

TAN 数式 一5490° <数式く5400° 


TAN 関数は， x の正接 TAN X を計算します. 

角度の単位については ， SIN x , COSx と同じように扱います. 


使い方 


TAN x を求める，次のプログラムを入力してみましょう. 


10 

REfl TANX EXAMPLE 

20 

PRINT 

"ANG し E="; 

30 

INPUT 

K 

40 

ANGLE 

K 

50 

PRINT 


ら 0 

INPUT 

X 

70 

PRINT 

"TAN";X;；TANX 

80 

STOP 


90 

END 



角度の単位を ''度" にして （ANGLE 0とする ）， TAN 45を求めてみましょ 
う.結果は ， TAN 45=1と表示されます. 

次に ， TAN 90を求めてみましょう. 

今度は， "MA error" と表示されてしまいました. 

TAN 関数は， 90° に近づくにつれ， TAN X の値が急激に大きくなります. 
そして， TAN90 のときは無限大となり，数えられなくなってしまいます. 
そのために，上記の例では， 、、MA error 7 が表示されたわけです.このよ 
うに， TAN x においては， x が土 90°X(2n —1) ( n は整数）の値をとる 
ときには MA エラー となりますので，注意してください. 


參照 


SIN, COS, ANGLE 
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厂数値関数 I 

ASN, ACS, ATN 


arcsine : アーク サイン 
arccosine : アーク コサイン 
arctangent : アークタ ンジエン ト 


機 能 

ASN は逆正弦 sin 1 x を与える 

ACS は逆余弦 cos' 1 x を与える 

ATN は逆正接 tan 1 x を与える 

書 式 

ASN X ， ACS x |x|^ 1: ATN x |x|<1O 100 


ASN ， ACS, ATN などは逆三角関数を表わし，それぞれ，逆正弦 sirr 、， 
逆余弦 cos _1 x ， 逆正接 tan— 1 x を計算します . 

三角関数 （ sin ， cos, tan) は，角度を与えて，その三角関数値を求める関 
数ですが，これらの逆三角関数は三角関数値を与えて，そのときの角度を求め 
る関数です . 


使い方 


ASN x を使ったプログラム例を示します . 


10 

REH ASNX EXAHP し E 

20 

PRINT 

"ANG し E="; 

30 

INPUT 

K 

40 

ANGLE 

K 

50 

PRINT 


b0 

INPUT 

X 

70 

PRINT 

"ASN";X;ASNX 

80 

STOP 


90 

END 



このプログラムを RUN すると，次の 2 つの人力要求が表示されます . 
ANGLE = ? 0 〇 …… 、、度 "を指定する 

ASN X ： X= ? 1 S ……三角関数値を入力する 

それぞれに，上記のような値を入力すると …… 

ASN 1=90 
… と表示されます . 

つまり ， SIN x =1 の角度 x を求めたことになります . 
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数値関数 / ASN ， ACS, ATN 


前述のプログラムを， ACS , ATN などにかえて，ためしてみてください. 
これらの逆三角関数で与えられる数の角度単位は， SIN , COS , TAN などと 
同様に ANGLE で指定します. 

計算結果として出てくる角度の出力範囲は， 度 （ DEG )〔0〕 の場合…… 

-90° ^ ASN ^ 90° 

0° ^ ACS ^ 180° 

-90° ^ ATN ^ 90。 


…•となります. 

SIN x , COS x は，理論的に1を越えることがないので ， ASN x , ACS 


X の引数 X の値は， 1 を越えない数値にする必要があります. 


参照 


SIN , COS , TAN，ANGLE 
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厂数値関数 I 

SQR (square root : スクウェア • ルート ) 


機 育 g 

平方根を与える 

書 式 

SQR 数式 数式 会0 


SQR は，平方根を求める関数で，/" ( スクウェア • ルート） に相当します. 
したがって…… 

SQR x = x ^ 0.5 = V x 

.となりますこのとき， x の値は Q より大きい値でなければなりません. 


使い方 


次のプログラムは， 円の面積を 人力して その円の半径を求める ものです. 


10 

REH SQRX EXAHP し E 


20 

PRINT 

"CIRCLE no 

HENSEKI 二 "; 

30 

INPUT 

S 


40 

R=SQR(S/PI). 

pi の項参照 

50 

PRINT 

"CIRCLE no 

HANKEI^"；R 

&0 

LOCATE 

0 3 2 


70 

END 




このプログラムを RUN すると，…… 

〇旧〇し E no MENSEKI = ? 

……と聞いてきますので，たとえば，面積100を入れてみます. 

すると， 5. 641895835と表示されます. 

この値が，円の半径です. 

では，もう一度 RUN して，今度はマイナスの値を入れてみてください. 
たちまち ， MA error が表示されます . SQ R x の引数 x がマイナスになる 
と， SQR ( S / PI ) が虚数になってしまうからです.このようなエラーを避ける 
には，引数の正負をチェックするための次の行を追加するとよいでしょつ. 

35 IF S <0 THEN 20 
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r 数値関数 i 

LOG, し GT 


'natural logarithm ; ログ 

vcommon logarithm : エノレジーテイ 


機 能 

LOG x …… 自然対数 log ex を与える 

LGT x …… 常用対数 log 10 x を与える 

書 式 

LOG 数式 

数式 >0 

LGT 数式 


LOG x は， x の自然対数 log e x (別の表わし方では In x ) の値を計算しま 
す.この場合， " e " を自然対数の底（てい）と呼びます. 
e は，次の値をとります. 

e =2. 718281828…… 

また ， LGT x は x の 常用対数 log 10 x の 値を計算します•つまり，常用対 
数は，底が 1 Q である対数です. 


使い方 


次のプログラムは， x の値を順次与えることによって ， LOG x を計算する 
ものです. 


i 0 

REH LOGX EXflnPLE 

20 

PRINT 


30 

INPUT 

X 

40 

PRINT 

" LOG '^ X ； "二 "； LOGX 

50 

GOTO 

20 


プロ グラムを RUN すると， . 

X = ? 

…と表示され ， LOG X の X の値を要求してきます. 

そこで，たとえば、、 1" と入力してみますと， LOG 1=0と表示され，次の 
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の値を要求して来ます. 


■実行例 

f 

RUN 


[CLS] 


X 二？ 


RUN 逆 


LOG 1=0 



V 

X = ?_ 

_ y 


この 対数関数 LOG x と 指数関数 EXP x は， 次のグラフの ように 逆の 関係 
にあります. 



このグラフからもわかるとおり，対数関数においては， x >0 であることが 
必要です.もし負の値を人れると ， MA error が表示されます. 

LOG x は底が e である x の対数ですが， e 以外の底のときの対数 log y x 
は，次の式で計算できます. 

LOG x /し〇 G y 

したがって， x の常用対数 LGT x は，次の式でも求めることができます. 

LOG x / し〇 G 10 
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数値関数/ LOG，LGT 


LOG 10/LOG 2= 3. 

321928095 

STOP P0 — 75 


サンプル • プログラム 


•底の値を入力し，さまざまな対数値を求めるプログラム 


丄 0 REfl* 束米し 0GX/ し 0GY*)(c* 

20 PRINT ； 

30 INPUT X 
40 PRINT M Y 二 "; 

50 INPUT Y 

60 PRINT "LOG" ;X ； "/LOG" ； Y ； ,! - M ； L0G X/LO 
GY 

フ 0 LOCATE 0 j 3 
フ 5 STOP 
80 END 

このプログラムは， LOG x /LOG y の 式によって， log y x の 値を計算す 
る プログラムです. 

実行例を，次に示します. 


逆^]逆 


£ 
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r 数値関数 i 

EXP (exponent * ヱクスポーネント ) 


機 有巨 

指数関数^を与える 

書 式 

EXP 数式 数式 $230 


EXP は， exponent の略ですが，指数関数の値 ( e x ) を計算します.このと 
き， 、、 e 〃 を指数関数の底（てい）と呼びますが， e の値は…… 

e =2.718281828. 

……です. 

話のたとえ方として，「指数関数的に増大する」などと言いますが，この関 
数は引数 x の値が大きくなると，急激に EXP x の値が大きくなるという性質 
をもっています. 


使い方 


では，次のプログラムを入力して， EXP x の値の変化を見てみまし よつ. 


i0 

REmttEXPXttt 

20 

PRINT 


30 

INPUT A 


40 

FOR X=1 TO 

f\ 

50 

PRINT "EXP" 

;X; ": =";EXPX 


FOR 1=1 TO 

300：NEXT 1 

70 

NEXT X 


80 

END 



このプログラムを RUN すると ， EXP x の引数 x の最大値を聞いてきます. 

A = ? 

そこで，たとえば，、、10"と入力してみますと，@キーを押すごとに， 
次のページの ような結果が表示されます. 
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数値関数 / EXP 


EXP 

1= 

2. フ 18281828 

EXP 

2= 

7.389056099 

EXP 

3= 

20.08553692 

EXP 

4= 

54.59815003 

EXP 

5= 

148.4131591 

EXP 

6= 

403.4287935 

EXP 

7= 

1096.633158 

EXP 

8= 

2980.957987 

EXP 

9= 

8103.083928 

EXP 

10 = 

: 22026.46579 


どうですか ， EXP x の値の増えかたが急激であることがわかりますね. 
さて，もう一度プログラムを走らせてみましょう. 

今度は， A に ''231〃 を入れてみてください. 

遠々と EXP x の値が表示され，引数 x の値が231になったとき ， MA 
error が表示されました. 

実は ， EXP x の引数 x の入力範囲は，…… 

x ^ 230. 2585 

. なのです. 


x =230. 2585の EXP x の 値は，次のようになります. 


■実行 例 


EXP 230.2585= 9.999907006E99 


この結果を見ますと，もう少しでオーバーフローしそうだということがおわ 
かりになるでしょう. 

なお，次の点にも注意してください. 


( I ) I X I = 4 E -10 に近くなると ， EXP X =1 となる. 

x < -288 に近くなると ， EXP x =0 となる 
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「数値関数 1 

ABS (absolute * アブソリュート） 


機 能 

引数の絶対値を与える 

書 式 

ABS 数式 


A 巳 Sx は， x の絶対値を与えます.数学的に表わすと . 

ABSx = | x | 

……となります. 

ABS x の x 7^'. 

x 20 (x の値が正の場合 ）…… ABS x = x 
x<0 (x の値が負の場合） ABS x = - x 

……となります. 

つまリ， ABS x は，結果が正数（絶対値.）となるように演算してくれるわ 
けです. 


使い方 


ABS 関数を使ったプログラムをためしてみましよう. 


i0 REfl ABSX EXAMPLE 
20 READ fl3B 3 C,D 

30 GOSUB 40 ； X=B；GOSUB 40J X=C; 

GOSUB 40 ： X=D；GOSUB 40；END 
40 PRINT "ABS” ；: X;" 二 "； ABSX 
50 FOR 1=1 TO 200：NEXT 1 
b0 RETURN 

フ 0 DATA5i-5 3 0 3 - フ ，5 


このプログラムは READ 文で，変数 A ， B ， C ， D に，5，一5，0， 一7.5 
を読み込み，それぞれ， ABS A 〜 ABS D を計算します. 
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数値関数 / ABS 


結果は次のように表示されます. 

■実行 例 


なお，次のよ 
できます. 

A 巳 S x 4 ^ 等しい — ^ x *SGN x 


ABS 5=5 
ABS-5=5 
ABS 0=0 
ABS- 入 5= フ ，5 


うに SGN 関数を使って， ABS 関数と同じ働きをさせることが 


サンプル•プ 


♦負の値を人力しても，エラーの生じないプログラム 


10 INPUT X 
20 S = SQR ⑽ SX ) 

30 し=し OG ( ABSX ) 

40 PRINT " S 3 RX=";S 
50 FOR 1-1 TO 200 ；NEXT I 
PRINT " L 0 GX=";L 
フ 0 END 


SQR x や LOG x などの関数は， x に負の値が入力されると ， MA error 
となります. 

そこで，このプログラムでは ABS 関数で x の絶対値をとり，計算するように 
してあります. 


参照 


SGN 


249 








数値関数丨 

INT (integer : インテジヤー） 


機 能 

引数の値を超えない最大の整数を与える 

書 式 

INT 数式 


INT x は， x の値を超えない最大の整数値を与えます. 

たとえば， x の値が3.9，0.5， -0.5, -3.9 などのとき， INT x は，そ 
れぞれ次のようになります. 

INT 3.9 = 3 
INT 0.5 = 0 
INT — 0.5 =—1 
INT — 3.9 =-4 

引数の値が，正のときは，単純に小数点以下を切り捨てた値となりますが， 
負の場合は，注意が必要です.たとえば， 一0.5 の場合は0とはならず，一 0.5 
を超えない最大の整数値ですから，一1となるわけです. 


使い方 


では，次のプログラムでためしてみましょう. 


10 REn 1NTX EXflDPLE 
20 READ A 5 B 5 C 
30 GOSUB 40:X=BJGOSUB 
40 ； X-C：GOSUB 40：END 
40 PRINT "INT";X; •，= "; INTX 
50 FOR 1=1 TO 200：NEXT I 
RETURN 

フ 0 DATA5.3 ， 0.5, - 3.3 


■実行 例 

INT 5.3= 5 
INT 0.5= 0 
INT — 3-3= — 4 
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数値関数 / INT 


プログラムを RUN すると，前ページのような結果を表示します. 
x の値を横軸にとり ， INT x の値を縦軸にとって， INT 関数のグラフを描 
くと，次のようになります. 


INTx の 
グラフ 


INTX 



この間の X に対して 
INT x は全て2に 
なる 


このグラフによって，正負のとる値の違いがおわかりになるでしょう. 

なお， INT 関数は他の関数，たとえば RND 関数などと組み合せてよく使わ 
れます.また， INT 関数に類似した関数として， FRAC 関数や ROUND 関数な 
どがあります. 


サンプル • プログラム 


• 0 〜 9 の整数をランダムに 5 つ表示するプログラム 


10 FOR 1=1 TO 5 
20 PRINT INT (10 末 RND ); 
30 NEXT I 
40 END 


このプログラムは， INT 関数と RND 関数を組み合せて使った例です. 


参照 


FRAC , ROUND , RND 
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数値関数"] 


FRAC (fraction : フラクション） 






機 能 

引数の小数部を与える 

書 式 

FRAC 数式 


FRAC x は， x の小数部分を与えます. 

簡単な例を示しておきましょう. 

FRAC 1. 123 = 0. 123 
FRAC -1. 123 =- Q . 123 

このように，単純に整数部を切り捨てる働きをします. 


使い方 


次のプログラムに，いろいろな値を人力してためしてみてください 


10 

REH FRACX EXAMPLE ： 

20 

PRINT 

" NUflBER "; 

30 

INPUT 

X 

40 

PRINT 

FRACX 

50 

GOTO 

10 


サンプル•プ 


'RND 関数で発生した小数点以下9桁の乱数を，1桁ずつの整数として取 
り出すプログラム 


10 DIH Y(9) 

20 X 二 RND 
30 FOR 1=1 TO 9 
40 丫 ⑴: =INT(10 柬 X) 

50 PRINT "X 二 1, ; X 
60 PRINT "Y("; I; = YCI) 
70 FOR J=1 TO 150;NEXT J 
80 X=FRAC(10 太 X) 

90 NEXT I 
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数値関数 / FRAC 

このプログラムは，最初に RND 関数で発生した値を変数 X に代入します. 
その値を10倍し， INT 関数で1桁の整数を得て，配列変数 Y(1) に代入し， 
残りの小数点以下を FRAC 関数で取り出じ， X に代入し，新たな X の値としま 
す.これを9回くり返し，配列変数 Y (1) 〜 Y (9) に，1桁ずつの乱数を分配し 
ます. 

たとえば，最初に，次のような乱数が発生したとします. 

0.^8 9 288 0 2 5.20 

メ 〆〆 / / 丨 、■ 、、、、、、、、、、へ、 

〆 / ,， / !、、、、 、、、、、、、て、、、 

丫 (1) Yt 2) 丫 (3) :(4) 丫 (5) 丫 (6) 丫 (7) 丫(8)、丫 (9) 

……のように，分配されます. 


参照 


INT ， RND , ROUND 




厂数値関数 I 

SGN (sign : サイン） 


機 能 

引数の符号（正負）を与える 

書 式 

SGN 数式 


SGNx は，引数 x の値が，正であるか負であるかを判別する働きをします. 
SGN x の結果は，次の 3 種類を与えます. 


x >0 

(正の場合） • 

… SGN x =1 

X =0 

(0 の場合）…… 

… SGN x = 0 

x <0 

(負の％合） . 

•.… SGN x =— 


使い方 


次のプログラムで，ためしてください. 


丄 0 

REH SGNX EXAMPLE 



20 

PRINT " 

十一 no HANTEI" 



30 

PRINT " 

KflZU ,f 




40 

INPUT X 





50 

和 SGNX 





& 0 

IF 

THEN 

PRINT " 十 1 ， 

: GOTO 

30 

70 

IF ㈣ 

THEN 

PRINT "0" 

: GOTO 

30 

80 

IF 和 - 1 

THEM 

1 PRINT ”- 

":G0Tp 

30 


60 〜 70 行において ， SGN x で得た値をもとに，正なら、' + "，負なら'' 一"， 
0ならを表示させるようにしています. 



• sin カーブを描くプログラム 


10 CLS : FOR X=0 TO 540 STEP 20 
20 S=SGN(SINX) 

30 Y 二 S*INT(S 木 10 氺 SINX) 
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数値関数 / SGN 


40 IF S く 0 THEN 70 
50 DRAU ( X /4 5 16 -丫〉 
60 GOTO 80 
70 DRAUCX /4,16+ V ) 
80 NEXT X 
90 END 


このプログラムは， SINX の X を 0 〜 540。 まで20。増しに求め， その 値 
を10倍して1桁の値として， Y に代入します. 

そのとき， SINX の SGN 関数をとり， SINX が負のときでも， INT 関数で 
整数部のみが取り出せるようにしています. 

このようにして求めた X ， Y の値を，ドット座標（0，16)—(159,16) 
を中心に， DRAW コマンドで正のときは （ X /4,16— Y )， 負のときは（ X / 
4,16 + Y ) の座標にドットを打たせています. 

( DRAW の項を参照してください.） 

この プロ グラムを RUN すると，次のような粗いサインカーブが描かれます. 

■実行 結果 -- 









厂数値関数 I 

ROUND (round : ラゥンド ) 


機 能 

数式1の値を，10の「数式2の値」乗の術で四捨五入します 

書 式 

ROUND (数式1,数式 2) 


ROUND ( x ， y ) は， x の値を1 0 y の桁で四捨五入した値を与えます. 
たとえば…… 

R 0 UND (12345, 2) =12000 

……となります.数値 12345 を 1 Q 2 ， つまり 100 の位で四捨五入している 
わけです. 


使い方 


次のプログラムで， ROUND 関数の働きを確認していただきましよう. 

i0 FOR Y-3 TO -5 STEP - 1 
20 X=12345.67891 
30 Z=R0UND(X 3 Y) 

40 PRINT USING"# 社 # 杜斡 • tt 社枯 tt 林"？ Z[ PRINT 
50 FOR J=0 TO 150;NEXT J 
ら 0 NEXT Y 

70 END __ 

このプロ グラムは ， ROUND ( X ， y ) の y の 値を 3 〜一5 まで 1ずつ 減らして 
計算したものですが，次のページの結果のように， 10、 v の位で四捨五入されて 
いるの がおわかりになるでしよう. 

なお，第2番目の引数 y に指定できる値は…… 

I y I < 100 

……と決められています.これ以上では， BS error となります. 

また， y の値に小数以下をもつ値を指定したときは，小数部を切り捨てた位 
置で桁指定します. 
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■実行 例 


数値関数/ ROUND 


12345,6フ831 
10000.00000 

12345.67891 
12000. 00000 

12345. 67891 
12300.00000 

12345.67891 
12350.00000 
12345.67831 


サンプル • プログラム 


• 2進数8ビットの乱数の発生と，その10進数の値も表示するプ d グラム 

10 丫二 0 

20 FOR 1=7 TO 0 STEP -1 
30 X = ROUND ( RND 3 -1 ) 

40 丫二 Y 十 C2 ハ I)*X 
50 PRINT X ； 

ら0 NEXT 1 
70 PRINT " = Y 
80 LOCATE 0， 1 
90 FOR J =0 TO 500 ;NEXT J 
100 END 

30 行で， RND 関数 （ 259 ページ参照）で発生した小数点以下の値を， ROUND 
関数で小数点以下第1位で四捨五入していますので， X の値は0か1のいずれか 
の値となります.この X の値を 8 回発生させて，0と1で構成された 8 ビット 
の乱数を作ります. 

同時に，40行で2進数8ビットの値を10進数に変換し，その値も連続して表 
示させます.実行例を次に示しておきます. 


RUN 過 




RUN 


00 1 01001= 41 


\ _ 

ノ 
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(数値関数） 

PI (Pi: パイ ) 


機 有巨 

円周率 7T を与える 

書 式 

PI 


PI は円周率； r の概数を与えます. 

与えられる PI の値は，11桁で次のとおりです. 

；r = 3. 1415926536 . 

(なお，この値は内部演算上，取られる値なので，表示上は， PI =3.141592654となります.） 


使い方 


次のプログラムは，円の面積を計算するものです. 


丄 0 

REfl PI 

EXAflP し E 

20 

PRINT 

W EN no nENSEKI" 

30 

PRINT 

"HRNKEI UA "; 

40 

INPUT 

R 

50 

S 二 PI 米 R ハ 2 

^0 

PRINT 

"S 二 "； S 

70 

END 



たとえば，半径の値として5を入力しますと，次のように円の面積を表不し 
ます. 

■実行 例 

S = 78.53981634 
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r 数値関数） 

RND (random number : ランダム • ナンバー） 


機 能 

乱数値を与える 

書 式 

RND 0< RND <1 


RND 関数は，0より大きく1未満の10桁の疑似乱数値を与えます. 

乱数とは，その発生する前後になんの規則性もない，つまり次にくる値があ 
らかじめ予測できない数をいいます. 

もともと，統計現象，確率モデルのシミュレーション用として必要であった 
乱数が，最近は，経済予測などのシミュレーションや，テレビゲームなどに応 
用されています.テレビゲームの面白さは，この乱数関数によっているところ 
が大きいのです. 


使い方 


次のプログラムは，10個の乱数を発生させ，表示するものです. 


丄0 

FOR N =1 

TO 

10 

20 

PRINT RND 


30 

FOR X-l 

TO 

500 :NEXT X 

40 

NEXT N 



50 

END 




結果は，次のようになりましたが，当然あなたが RUN した場合には，異な 
る乱数が発生します. 

これを見てもわかるように，全く規則性がないことがわかります. 


0.6791506196 
0.959823211 
0.205719988 
0.503305フ55 
0.306977109 
0. 106577855 
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数値関数 / RND 


0.41フフ075471 
0.501741468 
0.755155195 
0.456091832 


なお，このままの値では桁数が多く扱いにくいので，ゲームなどに応用する 
ときは，次のように， INT 関数や ROUND 関数と組み合せて，適当な範囲の乱 
数値として使います. 

① 希望する桁までの整数を取り出す 

INT(RND *10ハし） . L は桁数 

② N から上限 M までの整数を取り出す 

ROUND ( RND*(M — N ), — 1) + N …… N, M は整数 (N<M) 


260 










PB -700 活用法 


第5章 

プログラムライブラリー 


プログラムに関するお問合せは，下 
記へ葉書でお願いします. 

〒丨02東京都千代田区平河町卜 4- 12 
㈱技術評論社 

ソフトウ：]:ア担当 

•なお，本書の プログラムの 利用に 
よって生じるいかなる結果に対し 
ても，カシオ計算機㈱及び㈱技術 
評論社は一切の責任を負うことは 
できません. 


別売品のカセツトインタフェース付， 
ミニプロッタプリンタを付けないで， 
本章のプログラムを実行する場合， 
PRINTER ON ? (Y/N ) で,プリント 
アウトするかどうかを聞いてきたと 
きは， N を押して実行を続けて下さ 
い.丫を押すと， NR エラーが出ます 




株価管理と適正売•買値 


I 過去53週（つまり一年分）の株価を記憶します. 53週以後は，古い株価か 
ら順に捨てていきます.このデータをもとに，現在の偏差値を出しだり，売 
り，買いの判断材料を出力します.まだ，偏差値と移動平均をかみ合わせて 
みることや，グラフィック画面を利用して，株価の変動をグラフにしてみる 
こともできます. 



プログラムは P 0からスタートさせます.すると画面にメニューが表示され， 
番号の人力を要求してきますので，メニューの後についている番号を入力して 
下さい.範囲は1〜7です.これ以外の数字を入力すると，もう一度メニュー 
の表示になります. 

メニューで1を押すと，データが 人力され ます. 、' HAJIME ( Y / N )" かきいて 
きますから， Y を押しますと ，'' CLEAR OK ?( Y / N )〃 と画面に出ます.これは 
人カ ミスによるデータ消失を防ぐためのものです.普通は Y を 人力し ます. 

次にデータをきいてきますから，数字を人力して^)キーを押します • 2つ 
目からのデータの入力は，何週目かは、、シュウ =" で示されます. 53週目以降 
は，前のデータを1つずつずらしていくので，人力に少し時間がかかります. 

2は売り買いの判断です. 

3は，適正価格のチェックです.このルーチンでは，新たにデータを入れな 
おした場合， 2のルーチンを実行した後でなければ正しい値を表示しないので 
注意して下さい.これは，変数の一部を共用しているためです.そのかわり， 
このルーチンでは入力に待たれることはありません. 

なお，1から3のそれぞれのルーチンから抜けたいときは，負の数を入力す 
れば，メニューに戻ります. 

4でデータの出力をし，5で移動平均を求めます. 

6は過去の移動平均を見ることによって，株価の上がり下がりいずれかの基 
調を調べます. 

また，5と6とでは，特にデータが少ない時の入力に気をつけて下さい•ま 
ちがった値の場合，エラーがでることがあります. 

7は，全体の流れが見やすいように•グラフを作成するものです.下の目盛り 
は10週おきに出ていますが，データが53週分より少ない時は気をつけて下さい. 
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なお，このプログラムの DATA 文および，サブルーチンは，すべてカナなど 


を出力するためのものです. 

グラフ表示（メニュー 7) の例 


1111111111111111111111111 


MAX = 
582 



ブログラ厶 

P0 

10 CI_S : し OCATE 0,0: PRINT "INPUT 1 
OSUB 150 

20 FOR K=0 TO 50:NEXT K 
30 GOSUB 200 

40 FOR K=0 TO 100： NEXT K 
50 LOCATE 3, 2:PRINT "GRAPH フ " 

60 LOCATE 10 3 3：INPUT "NO."；PR 
70 IF PR>7 THEN 10 ELSE IF PRC 1 THEN 
10 

80 IF PR=1 THEN GOTO PROG 1 ELSE IF P 
R=2 THEN GOTO PROG 2 
90 IF PR=3 THEN GOTO PROG 3 ELSE IF P 
R=4 THEN GOTO PROG 4 
100 IF PR=5 THEN GOTO PROG 5 ELSE IF P 
R=6 THEN GOTO PROG 6 ELSE GOTO PRO 
G 7 

150 RESTORE : X=4 
160 X=X+1 ： F0R K=1 TO X 
170 READ DA;PRINT CHR$(DA)； : NEXT K：PRI 
NT X-3：IF X=5 THEN 160 
180 RETURN 

200 FOR X=1 TO 5：READ DA:PRINT CHR$(DA 
)； : NEXT X：PRINT 4 ； 

210 X=4 

220 X=X 十 1: し OCATE 9jX-5 ： F0R K=1 TO 3:RE 
AD DA：PRINT CHR$CDA)； : NEXT K:PRINT 
X 

230 IF X=5 THEN 220 
240 RETURN 
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400 DATA182>204,222j32>182 
410 DATA195j 183s190 3 178 3 32 j182 
420 DATA203, 174) 179 3 1883222 
430 DATA 178, 136,222, 179,3232 05,178 s 183 
.1221 

440 DATA 182,186,32, 201 ， 32,178,19632225 
179 
PI 

10 INPUT •‘HAJIME(Y/N) I, ， P$: IF P$="Y" T 
HEN GOSUB 200 

20 IF P$="N ,! THEN ft=A-l ELSE IF P$<>" 
丫 " THEN 10 
30 GOSUB 300 

40 A=A+1：GOSUB 330:PRINT Fb 
50 IF A>=53 THEN 70 

60 INPUT l! DATA ,! ? ZCA)i IF Z(f)X0 THEN Z 
(A)=0：GOTO PROG 0 ELSE GOTQ ^0 
70 INPUT "DATA 十"， DZ:C=C 十 1:A=53:IF D2< 
0 THEN GOTO PROG 0 ELSE ZC53)=D2 
80 FOR B=1 TO 53 
S0 ZCB-1)=2CB) 

100 NEXT B 
110 GOTO 70 

200 INPUT "CLEAR OKTCY/N)% T$;IF 了 $ 二"丫 
M THEN 220 ELSE IF . 「 $ こ ." N n THEN 240 
210 GOTO 200 
220 ERASE Z : DIM 2(53) 

230 A:.0 

240 P$= M y"; RETURN 
300 RESTORE : FOR X=1 TO 5 
310 GOSUB 350 ： NEXT X 
320 PRINT " DATA"：RETURN 
330 RESTORE 460 ： FOR K=1 TO 4 ： GOSUB 350 
: NEXT K:RETURN 

350 READ DA:PRINT CHR$(D^；; RETURN 
^50 DATfU 82,204,222,32, 182 
460 DATA188, 173, 179)61 
P2 

10 GOSUB 200:PRINT " CHECK" 

20 S=0 : Q=0 
30 FOR D=0 TO 52 
40 S=S+Z(D): Q=Q+Z(D) 八 2 
50 NEXT D 

60 IF A<54 THEN 80 

70 E 二 S/53;U 二 Q-53 木 E 木 E:F=SQR(U/52) 
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80 E = S / A ： U - Q - A * E * E ： F = SQR ( U /( A -1)) 

90 GOSUB 200：INPUT " 二 ", Y:IF Y<0 THEN 
i30 

100 H 二 ROUND(50+10 木 （ Y— 

}10 GOSUB 220:PRINT H 
120 GOTO 90 
130 GOTO PROG 0 

200 RESTORE : FOR K=1 TO 4：READ DA 
210 PRINT CHR$(DA)； : NEXT K:RETURN 
220 RESTORE 310:FOR K=1 TO 5：READ DA 
230 PRINT CHR$CDA)； : NEXT K：RETURN 
300 DATA182 j 204,222, 182 
310 DATA 205,221 ,18 フ， 133,61 
P3 

10 INPUT '^=" ,H ： Y=ROUND(CH-50)*F/10+E 
i-2)：IF H<0 THEN 30 
20 GOSUB 100：PRINT V ： GOTO10 
30 GOTO PROG 0 
100 RESTORE : FOR K=1 TO 5 
110 READ DPKPRINT CHR$(DA )； : KEXT K 
120 RETURN 

200 DATA1 82,204,222,182,61 

P4 

10 FOR U=0 TO A-2 

20 PRINT "DATA M ； U+1 ； M =" ； 2(U+1) 

30 FOR K=0 TO 50 
40 NEXT K：NEXT U 
50 PRINT "DATA END" 
b0 FOR K=1 TO 200：NEXT K 
70 GOTO PROG 0 
P5 

10 X=0 

20 GOSUB 200：INPUT N 
30 IF A<= - 53 THEN 30 
40 FOR し =53-N TO 52 
50 X=X+ZC し〉 
b0 NEXT し 
70 GOTO 110 
80 FOR K=A-N TO A 
90 X 二 - X + Z(K) 

100 NEXT K 
110 M=X/N 

120 GOSUB 240 ； PRINT USING n tt#M. 肺 #"; ft 

130 FOR K=0 TO 300：NEXT K 

丄 40 GOTO PROG 0 

200 RESTORE : FOR K=1 TO 6 

210 READ DA：PRINT CHR$(DA)； : NEXT K 

230 RETURN 


240 RESTORE 310; FOR K=1 TO 9 
250 REHD DfU PRINT CHR$CDA)；-NEXT K 
260 RETURN 

300 DATAl フ 8,136,222,173,183,173 
310 DATA 178, 19b 3 222,173,32,205,178，183 
，221 
P6 

10 GOSUB 200：INPUT I 
20 GOSUB 220：INPUT 0 
30 X=0 

40 IF A<=53 THEN 90 
50 FOR J=53-0-I TO A-O-I 
b0 X=X 十 Z(J) 

70 NEXT J 
30 GOTO120 

90 FOR J=A-0-I TO A-O-l：IF ACfJ THEN 
i40 

100 X 二 -X 十 Z(J) 

110 NEXT J 
120 t1=X/I 

130 GOSUB 240：PRINT N ： 0=0-1 ； X.=0t FOR .K= 
0 TO 20:NEXT K:GOTO 40 
140 GOSUB 2 フ 0:PRINT " END" 

150 FOR K=0 TO 200: NEXT K. 

160 GOTO PROG 0 
200 RESTORE : FOR K=1 TO 3 
210 GOSUB 290 ： NEXT K：FOR K=1 IQ 4: GlQSU 
B 290：NEXT K：RETURN 
220 RESTORE 320:FOR K=1 TO 8:GOSUB 290 
230 NEXT K：RETURN 

240 RESTORE ；FOR K=1 TO 4：GOSUB 230: NE 
XT K 

250 RESTORE 330：FOR K=1 TO 4 ： GQ9UB 290 
260 NEXT K：RETURN 

270 RESTORE 330 ： FOR K=1 TO. 4: GOSUB 290 
280 NEXT K：RETURN 

290 READ DA:PRINT CHR$(DA)RETURN 

300 D_182, 186,32,201，32 

310 DATA178, 136,222, 179 

320 DATA 1 37,22 1 ， 188,173, 179,22^207,180 

330 DATA205, 178,183,221 

p ン 

10 CLS 

20 MX=0：rOR MD=1 TO 53 
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30 IF 2CnD)>nX THEN nX=Z(.HDi 
40 NEXT (ID 

50 LOCATE 15, 2: PRINT "nA>C= ,1 ： LOCATE 15 
， 3:PRINT MX 
55 FOR K=1 TO A 
b0 J1=K*2 十 10: J2=25-25/HX 木 ZCIO 
ノ 0 FOR K=1 TO 5:P0=53 木 2 十 L0-K 木 20 十 2 
80 DRAUCPO,27)-(PO 5 30)：NEXT K. 

90 FOR K=1 TO A 
100 J1=K^2+10 ： J2=25-25/nX^ZCK) 

110 D_( Jl ， J2 ) - （ J1 ， 25);NEXT K 
120 IF INKEY$=" !, THEN 120 
130 GOTO PROG 0 


テス t データ 


19週前 

584 

14週前 

545 

9週前 

635 

4週前 

685 

18週前 

580 

13週前 

550 

8週前 

652 

3週前 

697 

17週前 

579 

12週前 

563 

7週前 

673 

2週前 

685 

16週前 

570 

11週前 

589 

6週前 

701 

1週前 

672 

15週前 

562 

10週前 

620 

5週前 

692 

今週 

689 





操作 


データ入力を指定 — 
初めてのときは丫 _ 
追加のときは N 
データをクリアし 
てもよければ Y, 
否ならば N 

Q ] データ入力 


手順 

キー操作 

表 示 


! SHIFT 1 f) 

INPUT 1 イドウヘイキン 5 
カブカ 2 カコノイドウ 6 
テキセイカ 3 GRAPH 7 
ヒヨウジ 4 N0. ? 

1 

0 逆 

HAJIME (Y/N) 

2 

0 』 

CLEAR OK? (Y/N) 

3 

0 幽 

カブカ DATA 

4 

584 .過 

シュウ =1 

DATA 

シュウ =2 

DATA 
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負の数を入力する 
とデータ入力が終— 
わる 

メニュ -»> 

回株価チ I ック 


現在の株価を入力4 
過去の データにも 
とづく偏差値が出 
力される. 

負の数の入力でメニ 
ユーに民る.- *■ 

[II 適正価格 


偏差値を入力-> 

株価が出力される— 

負の数の入力でメ 
ニューに戻る-> 

@データの出力 


全部の データを 出 
力してメニューに 
戻る 


メニュ — 

固移動平均 


移動数を入力 


[1 ] 過去における 
移動平均 

何週分の移動平均 
をとるかを入力- ► 


何週前からとるか 
を入カー 

出力が終わると一 
メニューに戻る 

S グラフ 


手順 

キー 操作 

表 示 

5 

_ 1 』 

1 

N0. ? 

6 

2 _ 

カブカ〇 HECK 
カフカ= 

7 

585 ^8 

ヘンサチ = 49.23 
カフカ= 

8 

- 1 或 

N0. ? 

9 

3 ^ 

H = 

10 

55 逆 

カブカ = 670.1 

H = 

11 

-1 或 

1 

N0. ? 

12 

4 

DATA 1=584 

DATA 2 = 580 

DATA 3 = 579 

DATA END 

NO. ? 

13 

5 ^1 

ィドゥスゥ？ 

14 

15 喊 

イドウヘイキン 643.200 

1 

N0. ? 

15 

6 』 

カコノイドウ？ 

16 

3 或 

ナンシュウマエ？ 

17 

2 _ 

カコノヘイキン 689 

カコノヘイキン 684.666 . 

カコノヘイキン 002 

1 

N0. ? 

18 

7 過 

グラフを作成 
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^名前と電話番号を登録しておけば，いつでもどこでも，す速くかけだい 
人の電話番号がわかります.名前の頭文字だけで調べだり，名前をアル 
ファべツト順に並べ変える等の機能を備えています. 

解説 

友だちや知り合ぃの電話番号をこのブログラムに登録しておけば，電話した 
ぃときに，すぐ電話番号を知ることができます.一度に登録できる人数は50人 
までですが，一旦登録しておけば名前の頭文字や最初の数文字を入力するだけ 
で電話番号を検索することができます. 

まず P 0を RUN して下さぃ.メニューが表示されます.1〜4の数字で入力 
して下さぃ. 

1 一 INPUT ……名前と電話番号を登録します.下記の要領で人力して下さぃ. 
下線部分が打ち込み箇所です. 

NAME ? CASIO _ f^T| ( 名前は， 16 文字まで） 

TEL NO. ? 〇 3 — 347 — 4830 _ ( 電話番号は， 12 文字まで） 

以上の繰り返しで登録を行なぃます.なお登録を終了したら，名前の 
代わりに 「 END 」 を入力して下さぃ.メニューに戻ります. 

2— SORTING . 名前をアルファべット順に並べ変えます.並べ変えてぃ 

る間は 「 SORTING ...」 と表示されます.登録量により異なりますが，数 
秒から数分で終了し，並べ変えた後の順序で登録されてぃる名前と電話 
番号を1人ずつ表示します•キー（何のキーでも良ぃ）を押すたびに次 
の人の表示に移り，全員表示し終えると メニューに 戻ります. 

3— LOOK FOR ……名前を人力して電話番号を検索します.下記の要領で 
名前を人力すると，名前と電話番号が表示されます. 

NAME ? CASIO 一 ^] 

CASIO 

03-347-4830 

名前の入力に際しては，頭文字や最初の数文字のみでも検索可能です. 
この場合，相当する名前のものはすべて表示します.また同じ名前が登 
録されて ぃる 場合も，すべて表示するようになってぃます. 

登録されていない名前を検索した場合は「 N 0 DATA 」 を表示します. 
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何かのキーを押してメニューへ民って下さい . 

4—DELETE ……登録済みのデータを削除する場^^に使います•この場合も 
今までと同様に名前を人力します. 

NAME ?A 巳 CDE 過 

ABODE 

000-0000 Y/N? 

ここで， 本当に消す場合は 「 Y 」 を，消したくない場合は 「 N 」 を押 
して下さい.これで，あやまって消してしまうことはないでしよう. 
なお，新たに登録しなおしたい場合は 「 CLEAR 」 を実行して下さい•今まで 
のデータはすべてクリアされます，•また，1 -INPUT は追加登録を行なう働き 
をしますから，4 — DELETE と組み合わせて，自由にデータの追加，削除が行 
なえます. 

プログラ厶 


10 CLS 

20 PRINT !, 1-INPUT 2-SQRTiNG" 

30 PRINT "3-LOOK FOR" 

40 PRINT M-DELETE" 

50 K$=INKEY$：IF K$="" THEN 50 
60 IF K$="1 M THEN GOTO PROG 1 

70 IF K$=--"2" THEN GOTO PROG 2 

30 IF K$ 二 " 3" THEN GOTO PROG 3 

90 IF K$="4" THEN GOTO PROG 4 

100 GOTO 50 
1 

10 CLS 
20 N=-N+1 

30 IF N=51 THEN 90 

40 IF N=1 THEN DIM A$(50) ， B$(50) 木 12 
50 INPUT "NAME 
60 IF A$(N)=-* ,, END M THEN 100 
70 INPUT "TEL NO ノ； B$(N) 

30 GOTO10 

90 PRINT "FU しし "： BEEP 1 
100 N=N-1 
110 GOTO PROG 0 
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P2 


5 CLS : PRINT "SORTING." 

10 FOR 1=1 TO N 

20 nn$=A$ci) ： x=i 

30 FOR J=I TO N 
40 KK$=A$C J) 

50 GOSUB 200 
60 NEXT J 

フ 0 a$(X)=r$( i) ； n$( i)--nfi$ 

80 m$=B$(X) 

90 b$(x 〉 =b$(i): 日 $(i)=nn$ 

100 NEXT I 
110 GOTO PROG 5 
200 KU=0 
210 KU=KU 十 1 

230 01=LEN(Mf1$) : 0'2=LEN(KK$) 

240 IF KU>01 THEN RETURN ELSE IF KU>0 
2 THEN 300 

250 m$=niD$cnn$ ) Ku ) DiKi$=niD$cKK$ 3 KU 

， l) 

260 IF ASCCnU)= ： ASCCKI$) THEN 210 
270 IF ASC(MI$)>ASC(KI$) THEN X=J ： dn$^ 
KK$：RETURN 
280 RETURN 

300 X = J : fin$-KK $； RETURN 
P3 

10 CLS 

20 INPUT !, N^nE . f1f1$ 

30 X 二 -LEN(m$) 

40 J:0 

50 1=1+1 

IF I--N+1 THEN IF F=1 THEN 120 ELSE 
130 

70 IF m$=LEFT$( A$( I ) ， X) THEN 90 
80 GOTO 50 
90 F-l ： PRINT f)$(l) 

丄 00 PRINT 巳 $(I) 

il0 K$=-INKE'Y$. IF K$=-' '' rHEN 110 ELSE 5 
0 


120 F=0：GOTO PROG 0 
130 PRINT "NO DATA" 

140 K$=INKEY$：IF K$="" THEN 140 ELSE 1 
20 
P4 

10 CLS 

20 INPUT "NAME " ; m$ 

30 X=LENC(in$) 

40 1=0 
50 1=1+1 

60 IF I=--NH1 THEN 130 
70 IF m$ 二 LEFT$(A$(I) ， X) THEN 100 
90 GOTO 50 
100 PRINT A$(I) 

110 PRINT 日 $(1);" Y/N ?" 

120 K$=INKEY$：IF K$:"" THEN 120 
130 IF K$=-"Y" THEN 150 
140 GOTO 50 
150 A$CI)=A$(N) 

160 B$(I)=B$(N) 

170 N=N-1 
180 GOTO PROG 0 
P5 

10 FOR 1=1 TO N 
20 C し S 

30 PRINT A$(I) 

40 PRINT B$(I) 

50 K$=INKEY $： IF K$ = " !, THEN 50 
b0 NEXT I 
70 GOTO PROG 0 
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L 一の 表示 - 


fglfl 

メニューの1を選択 _ 

最初の1人の 
登録 ( 氏名 )-> 


番号の登録 

2 人目の氏名 
の登録一 


番号の登録 


終了したら ， 「ENDj 
を入力.メニュー 
画面に戻ります .- 
I 検索 I 

だれを 

さがしますか？一 


姓だけでも 0K 

です ：- 


メニュー画面に 
戻します .- 


1 ベか又 I 
アルフアベツト順 — 

「 SORTING ……」 

が消えたら -> 


並べかえの結果 
を次つぎと表示 - 


手順 

キー操作 

表 示 


1 SHIFT 1 

1 一 INPUT 2-SORTING 

3- L00K FOR 

4- DELETE 

-> 1 

1 

NAME ? 

2 

HARADA 

T0M0YUKI 

NAME ? HARADA TOMOYUKI 

TEL NO. ? 

3 

03-583-4111 (^) 

NAME ? 

4 

NISHI 

YUUZ0 』 

NAME ? NISHI YUUZO 

TE し NO. ? 

5 

052-264-1453 

NAME ? 

6 

END 喊 

1-INPUT 2 - SORTING 

3- LOOK FOR 

4- DELETE 

7 

3 

NAME ? 

8 

HARADA 

T0M0YUKI 

NAME ? HARADA TOMOYUKI 
HARADA TOMOYUKI 

03-583-4111 

9 


1 一 INPUT 2-SORTNG 

3- LOOK FOR 

4- DELETE 

10 

2 

SORING... 

11 

越 

TAHARA YUUKO 

06-314-2681 

12 


HARADA TOMOYUKI 

03-583-4111 
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並べかえの表示が 
終ると，メニュー 
画面に戻ります;一一^ 

削除したい 

名前は ？ — 

削除してよければ， 
Y , 否ならば N — ► 


メニューに 

戻ります， 


検索で確認して_ 
みます. 

「 N 0 DATAj の 
表示は，該当なし 
を表しょす. - ► 


手順 

キー操作 

表 示 

13 

越 

1-INPUT 2-SORTING 

3- LOOK FOR 

4- DELETE 

14 

4 

NAME ? 

15 

HARADA 

T0M0YUKI 

NAME ? HARADA T0M0YUKI 
HARADA T0M0YUK! 

03-583-4111 Y/N ? 

16 

Y 

1-INPUT 2-SORTING 

3- LOOK FOR 

4- DELETE 

17 

3 

NAME ? 

18 

HARADA 
T0M0YUKI 逆 

NAME ? HARADA T0M0YUKI 

NO DATA 


メモリー内容 

N 

NAME , TEL No . の個数一 1 

X 

捜す文字列の長さ 

A $(0,0) 

NAME 

A $ (50,0) 


A $(0,1) 

\ 

TEL No . 

A $(50, l ) 


MM $ 

捜す文字列 
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CROSS TOTAL 


sr よこ （ x ) とたて（丫）の 2 つの項目について，各項目の和を求めだり，ソー 

ティンク（並びかえ）を行なつて，構成比を見たりするプ□ブラムです.例 
えば，よこ軸に製品，たて軸に月をとれば，製品合計や，月別統計などのデ 
一夕を得ることができます. 


使い方 ■■■■■■■■■■■■■■■■■ 


P 0でプログラムを RUN させます.まずプリンターを使用するかの確認後， 
次のメニューが表示されます. 


1 DATA INPUT 

2 TOTAL 

3 SORT 


―データの 入力をしたいときは 1 
—よこ，たての合計を得たいときは2 
—並べかえをしたいときは 3 


4 DATA OUTPUT ?—全データを見たいときは 4 


最初にデータを入力するときは，1，よこ，たての小計などを見たいときは， 
2，データの大きい順に項目を並べて構成比を見たいときには，3，今まで入 
れたデータを見たいときには，4を入力してください. 

1. データの入力法 （* 配列の取り方によって，入力数が異なります.） 

メニューで，1を選択すると， 「 CLEAR ( Y / N )?」 と表示が出ます.初めて 

データを入力するときは，ここで“ Y ” を入力して下さい. 

以後， X ( よこの項目数)， Y (たての項目数）をそれぞれいくつとるかを聞い 
てきますから，それぞれの数を入力して下さい. 

次に ， 「mPUT DATA X = 1 Y = 1」で， X ( よこ）， Y (たて）のデータを 

聞いてきますから，数値を入力します. X = と X1 了 2 3 4 . 

Y = のあとの数字は，次つぎに変化し，データ Y1 _ 

は，よこの方向へ入れていきます. と - 

X = l,Y =1X = 2, Y =1-> X=3, Y =1 - 

X = l,Y = 2 — X = 2, Y = 2 -> X=3, Y=2". : 

すべてのデータの入力が終わると，総合計 ：1 --- 

(GRAND TOTAL ) を表示して ， “PRINTER 〇 N ?( Y / N )’’ の表示となります. 

Y か N の入力によって，メニューに戻ります. 

2. データの 訂正 
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データの訂正をしたいときは，メニュー画面で，1を選択し，次の表示 “ C 
LEAR(Y/N)?” で N を入力すると， “TEISEI(X ， Y)X = ? ”の表示で，訂正した 
箇所が， X ( よこ）の何番目かを聞いてきます. X の値を入力すると，次に Y (た 
て）の何番目かを聞いてきます.ここで， Y の値を入力すると，その場所のデ 
一夕を表示し， “DATA?” で新しいデータの入力を求めてきます.ここで，修 
正したい数値を入力すると，再び，新しい合計額を表示し，次に “PRINTER 
〇 N ? ( Y / N )” を表示して， Y か N を入力すると，メニュー画面へ戻ります. 

3. X ， Y の項目ごとの小計 

メニュー画面で2を選択すると， “X — SUM OR Y — SUM?” で，よこの小計 
か，たての小計かを聞いてきます. X または Y を入力して下さい. 

X を入力すると，1から X の設定までのたての小計を出力し，最後に総計を 
出力して， “PRINTER ON? (丫 /N)” で Y または N 逆を押すと，再びメニュー 
に戻ります. （ Y で，次の小計表示のとき，プリンター出力となります）. 

Y を入力した場合は，1から Y の設定数までのよこの小計を出力し，同様に 
メニューに戻ります. 

4. ソーテイング 

メニューで 3を選択すると，たて，よこの小計の大きい順の並べかえを行な 
います.まず， “SORT X 〇 R Y?” で， X を入力すると，たての小計の並べか 
えと構成比， Y を入力すると，よこの小計の並べかえと構成比を出力します. 
^PRINTER ON?(Y/N” で Y または N (プリンター接続 時は Y を入力）を入 
力すると， メニューへ 戻ります. 

なお，このソーティング（並べかえ）中は，項目の数が多いと，出力が出る 
までに時間がかかります.項目数が20で，並べかえが終るまでに1分10秒ほど 
かかりました. 

このプログラムでは，半精度変数を多く使っていますので，多くのデータを 
扱えますが，入力のデータは5桁までです. 

一度ソーティングして，もう一度結果をみたいときには， fBRKl キーを押し 
た後， P 4 で RUN140 を実行して下さい. 

5. 全データの出力 

メニューで 4を選択すると “X=1Y=1DATA 233” というようにデータ 
を表示します.このとき， “PRINTER ON?(Y/N)” で Y を入力してある場合に 
は， 次つ ぎにデータをプリントアウトしますが，そうでないときは， 次の デー 
夕をみたい場合は，何かキーを押してください. 次の データを表示します•す 
ベての データを 表示し終わると， “PRINTER ON?(Y/N)’’ の 表示にもどります. 


276 




プログラ厶 


pa 

10 INPUT "PRINTER ONTCV/N) " , F$ 

20 PRINT j, l DATA INPUT ， V2 TOTAL'S "3 
SORT'S "4 DATA OUTPUT "； 

30 INPUT R 

40 IF R=1 THEN GOTO PROG 1 ELSE IF R= 
2 THEN GOTO PROG 2 

50 IF R=3 THEN GOTO PROG 3 ELSE IF R= 
4 THEN GOTO PROG 5 
60 GOTO10 
PI 

10 INPUT "CLEAR (Y/N)?%S$ 

20 IF S$= M Y" THEN CLEAR : GOTO 30 ELSE 
IF S$<>"N" THEN 10 ELSE 110 
30 INPUT "X M ;X ， "Y"；Y 
40 DIM D! (X ，丫）， X! (X 〉，丫！ （ Y) 

50 FOR J=1 TO Y:Y!(J)=0：FOR 1=1 TO X 
60 PRINT "INPUT DATA X=" ； I； M Y=" ； J, 

フ 0 INPUT D! (I ， J) 

30 V! ( J)=Y! ( J) 十 D! ( ； I ， J) 

90 NEXT I：NEXT J 
100 GOSUB 200：GOTO PROG 0 
110 PRINT "TEISEICX,Y )"； 

120 INPUT "X=" ； I, M Y=" ； J:PRINT D!(I ， J) 
130 INPUT "D_";D! (I ， J) 

140 FOR J=1 TO Y ： Y!(J)=0：FOR 1=1 TO X 
150 Y! ( J)=V! ( J) 十 D! U, J) 

160 NEXT I：NEXT J 
170 GOSUB 200：GOTO PROG 0 
200 S=0：FOR 1 =1 TO X:X!(I )=0:FOR J=1 T 
Q Y 

210 X!(I)=X!(I) 十 D! く I ， J) ： S=S+D! (I ， J 〉 

220 NEXT J：NEXT I 

230 PRINT "GRAND T. " ； S：FOR K=0 TO 100 ： 
NEXT K 
240 RETURN 
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P2 


10 input i, x-sun or y-sun" ； p$ 

20 IF P$="Y" THEN 150 ELSE IF P$="X" 
THEN 80 E し SE 10 
30 FOR K=1 TO X 
90 PRINT "X=" ； K；" SUn=" ； X!(K) 

100 IF F$="Y" THEN GOSUB 300:NEXT K：GO 
fO 340 

110 FOR T=1 TO 100: NEXT T：NEXT K 

120 GOTO190 

150 FOR K=1 TO V 

160 PRINT "Y-" ； K；" SUn=" ； Y!(K) 

170 IF F$="Y U THEN GOSUB 320：NEXT K：GO 
fO 340 

180 FOR T=1 TO 100: NEXT T：NEXT K 
190 PRINT "GRAND T. M ；S 
200 FOR K=1 TO 100: NEXT K 
210 GOTO PROG 0 

300 LPRINT "X=" ； K；" SUM= M ;X!(K):RETURN 

320 LPRINT "Y=" ； K ； " SUf1=" ； Y! CK)；RETURN 

340 PRINT "GRAND T.S 
350 LPRINT "GRAND T. ； S ； GOTO PROG 0 
P.3 

10 PRINT "SORT X OR 丫 ？" 

20 INPUT P$ 

30 IF P$= M Y" THEN GOSUB 100 ELSE IF P 
= THEN GOSUB 200 ELSE 10 
叩 GOTO PROG 4 
100 ERASE A! 
i10 Din A! ( 丫， 2) 

120 FOR J=1 TO Y 

130 A ! (J,1)=Y!(J):A!(J,2)=J 

140 NEXT J 

150 N=YiRETURN 

200 ERASE A! 

210 Din A! (X ， 2) 

230 FOR 1=1 TO X 

240 A!(I ， 1) 二 X!(I):A!(I ， 2)=1:NEXT I 
250 N 二 X: RETURN 
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P4 

10 CLS 

20 PRINT "SORTING NOU" 

30 REM SORT 

40 FOR K=N-1 TO1 STEP -1 
50 FOR L=1 TO K 

60 IF A! (L ， 1)>A! (L 十 1 ， 1〉 THEN 100 
65 FOR n=l TO 2 
70 T 二 A!(L ， n) 

80 A!(L ， M) ご A!(L+1 ， H) 

90 f\\ (L 十 l ， n)=T 
95 NEXT fl 
100 NEXT L 
110 NEXT K 
120 REM PRINT 

130 FOR K=1 TO10：BEEP : NEXT K：CLS 
140 FOR K=1 TO N：GOSUB 220 
150 PRINT USING" 料 " ； K; M " ； P $； " = " ； USING 
" 枯林 " ； A! (K>2) ； USIN6 n ###tt^# n ； A! (K, 
1)； 

160 PRINT USING"###" ； A ； CHR$(3?) 

170 IF F$ 二 " Y" THEN GOSUB 300 ： NEXT K：GO 
SUB 320：GOTO PROG 0 
180 FOR L=1 TO 50：NEXT L：NEXT K 
190 PRINT "GRAND T."；S 
200 FOR K=0 TO 100: NEXT K 
210 GOTO PROG 0 
220 REM KOUSEIHI 
230 A=ROUND(A!(K ， l)/S ， -3) 木 100 
240 RETURN 

300 LPRINT USING" 林 #"; K; " ; P$; " =，• ； USIN 

G" 料 " ； A! (K, 2) ； USING"########" ； A ! (K 

i 1)； 

310 LPRINT USING M ###" ； A ； CHR$(37)：RETUR 
N 

320 PRINT "GRAND T. ；S 
330 LPRINT "GRAND T."；S 
340 RETURN 
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P 5 


5 CLS 

10 FOR J=1 TO Y：FOR 1=1 TO X 
20 PRINT r, X= M ； 1 ； "Y=";J;" DATA M ； D! (I, 
J) 

30 IF F$= ,, Y n THEN GOTO 50 
40 IF INKEY$= ,M, THEN 40 ELSE 60 
50 LPRINT "X=" ； I；" Y=" ； J； M DATA="；D 

i (I ， J) 

60 NEXT I：NEXT J 
70 LPRINT : し PRIMT : し PRINT 
80 GOTO PROG 0 


メモリー内容 

A 

構成比 

K 〜 M 

カヴンタ 

S $ 

丫または N 

A !() 

ソート時のデータ用 

N 

ソート時のデータ数 

T 

データ交換用変数 

D !() 

データ配列 

P $ 

X または丫 

X !() 

X の和の配列 

F $ 

プリンタ使用の有無 

R 

メニュー選択 

YK ) 

丫の和の配列 

I , J 

配列内添字 

S 

総和 




5 桁以上のデータを取り扱いたいときは，プログラムの A !( )， D !( ), X ! 

(), Y !() を，それぞれ A ( )， D ( )， X ( )， Y () に変更します. 


サンプルデータ 



1 

Y= 

1 

DATA= 

321 

x= 

2 

Y= 

1 

D_= 

369 

x= 

3 

、： 

1 

DATA= 

35 フ 

x= 

1 

Y= 

2 

D_= 

159 

x= 

2 

Y= 

2 

D_= 

14 フ 

x= 

3 

Y= 

2 

DATA= 

123 

x= 

1 

Y= 

3 

DATA 二 

842 

x= 

2 

Y= 

3 

DATA= 

862 

x= 

3 

Y= 

3 

DATA 二 

579 
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操作 


プリンターを使い 
ますか？ -> 

手順 

キー操作 

表 示 


1 SHIFT I g 

PRINTER ON ? (Y/N) 

1 データ入力1 

1 

N 』 

1 DATA INPUT 

2 TOTAL 

3 SORT 

4 DATA OUTPUT ?_ 

データをクリア — 
しますか？ 

よこの項目数は ？— 

2 

1 逆 

CLEAR(Y/N) 

3 

Y 或 

X? 

たての項目数は ？— 

4 

3 

Y? 

X = 1, 丫 =1 のデータ 
を入力して下さい — 

5 

3 過 

INPUT DATA X=1 丫 =1 
? 

X = 2, Y=1 のデータ 
を入力して下さい — 

総 rl ■の表示 
プリンターを接続 
していれば Y, 否 — 
ならば N 

メニューに戻り， 

6 

321 』 

以下続けてデータ 

INPUT DATA X= 2 丫 =1 
? 

を入力しています . 

7 


GRAND T. 3759 

PRINTER ON? (Y/N) 

8 

N 或 

1 DATA INPUT 

2 TOTAL 

叩 "P S り • > 

1 たての小計1 
たて小計ならば X ， 

よこ小計ならば Y 7 



3 SORT 

4 DATA OUTPUT ? 

9 

2 過 

X-SUM OR Y-SUM ? 

各小計と合計の 


X 或 

X =1 SUM=1322 

X = 2 SUM =1378 

SUM は合計です . 
プリンター接続な 

つ v よ Y * - ► 

10 


X=3 SUM = 1059 

GRAND T. 3759 

PRINTER ON? (Y/N) 




メニューに戻る 

はこの小計1 

11 

N 過 

1 DATA INPUT 

2 TOTAL 

3 SORT 

4 DATA OUTPUT ? 

| C7^ w V ノ J 口 | | 

12 

2 或 

X-SUM OR Y-SUM ? 
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よこの小計は Y ―^ 

プリンター接続なら 
らば Y -> 


「ソーティング！ 
たて（ X )，よこ （ Y ) 
の小計ごとの並べ 
かえ 


たて小計の大きい 

順に表示.-^ 

順位，項目名，小 
計，％を表示. 

プリンター接続な、 
らば ， Y 


メニューし民る- *■ 


よこ小計の並びか 
えをしたいときは 


小計の大きい順に表 
表示し.％も出力. 


手順 

キー操作 

表 示 

13 

Y 喊 

丫 =1 SUM = 1047 
丫 = 2 SUM = 429 

Y=3 SUM = 2283 

GRAND T. 3759 

14 


PRINTER ON ? (Y/N) 

15 

N ㉝ 

1 DATA INPUT 

2 TOTAL 

3 SORT 

4 DATA OUTPUT 

16 

3 或 

SORT X OR Y ? 

17 

X 逆 

1 X=2 1378 37% 

2 X=1 1322 35% 

3 X = 3 1059 28% 

GRAND T.3759 

18 


PRINTER ON ? (Y/N) 

19 

Y 逆 

1 DATA INPUT 

2 TOTAL 

3 SORT 

4 DATA OUTPUT 

20 

3 逆 

SORT X OR Y ? 

21 

Y 逆 

1 Y = 3 2283 61% 

2 Y =1 1047 28% 

3 Y = 2 42911% 

GRAND T.3759 

22 


PRINTER ON ? (Y/N) 

23 

4 逆 

X=1 Y =1 DATA = 321 

X = 2 Y =1 DATA= 369 


※尚，データの数値により，構成比の総和が100%とならないことがあります. 
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バイオリズム 


^ 自分の誕生日から，ある月のバイオ IJ ズ厶を知ることができます.身体， 

感情，知性の曲線が，目盛り上にあるときが一番不安定な状態で，それより 
も上にい<ほど状態がよ<,下にい<ほど悪くなります. 

つづけて次の月のデータも知ることができます. 


使い方 


プログラムをスタートさせると，まずプロッタに出すかどうかをきいてきま 
すから，使用する場合は Y ， 使用しなければ N を押します. 

次に名前をきいてきますので，入力します (30 文字まで入ります）. 

今度は誕生日をきいてきますから，昭和の場合は S ， 大正の場合は T ， 明治 
の場合は M で入力します.西暦で入れたいときは0から9までの数を押してか 
ら，年号を入れます.同じように，月と日を入力します. 

調べたい年と月をきいてきますから，同じ要領で指定します. 

入力後，画面上に指定した月のバイオリズムが，身体，感情，知性の順で描 
かれます.プロッタプリンタにつないであれば，身体が青，感情が緑，知性が 
赤の色で出力されます. 


ひとつの月のバイオリズムが出力されると，次の月のデータの出力をきいて 
きます.ここで N を押すと，プログラムの初めに戻り，新たに名前を入力して 
いくことになります. 


プリントアウト例 


S32 5 UMARE 

TAN 隱 


SHY0U858 8 



- CHISEI 
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プログラム 

100 REn 

110 CLEAR : Din G $( 3 ) jS$(3)jK(3) jC $( 1 )) 
N$(0) 木 30 
120 GOSUB 2000 
130 REM 

140 C し S : PRINT MD$：INPUT "Prin terCV/N) 

: M ， ZI$:PS=0:IF ZI$="Y" THEN PS=1 
200 REM 

210 CLS : PRINT m $：INPUT "NAflE ： M )N$C0) 
220 REM 

230 PRINT "S/T/f1/(0-3)" 

240 SU=0：GOSUB 1000 ： BG=G 
250 SU=1：GOSUB 1000 ： OG=G：IF OV<BY THEN 
250 ELSE IF 0Y=BV THEN IF OIKBfl T 
HEN 250 
300 REM 

310 NE=BY ： TK=Bf1 ： GOSUB 1200 ： BS=NI 
320 NE=OY ： TK=Of1：GOSUB 1200 ： OS=NI ： TU=OS 
-BS-BD 

330 NE=OY ： FK=0n+l ： 60SUB 1200 ： TN=NI-OS 
400 REM 

410 IF OG=0 THEN ZI$= ,M, ELSE ZI$=G$COG 

420 CN$=ZI$ + f1ID$(STR$(OY-KCOG)) j2) + "" 
+RIGHT$(STR$(0H) ， 2) + " :• 

430 C し S 

440 DRAU(0 ， 0)-(0 ， 32) :DRAUK0 ， 16)-03?16 
) 

450 FOR 1=1 TO TN ： Y=1：IF I MOD 5=0 THE 
N Y=2 

460 DRRU(I*3 5 16-V)-(I*3 j 16+Y)：NEXT I 
470 P=TU MOD 23 ： n=P ： U=23：LOCATE 12 ， 0:P 
RIHT S$(l)：GOSUB 1300 
480 S=TU MOD 28 ： A=S ： U=28：LOCATE 12>1：P 
RINT S$(2) ： G0SUB 1300 
490 H=TU MOD 33 ： A=H ： U=33：LOCATE 12, 2:P 
RINT S$(3) ： G0SUB 1300 
500 REfl 

510 IF PS=1 THEN GOSUB 1400: GOTO 540 
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520 IF INKEy$= ,M, THEN 520 

530 REM 

540 on=on+i ：if on>i2 then on=i : ov=ov+i 
550 CLS : PRINT nD$ ； OV ； M !, ； 0n ； M 
.•: INPUT " (Y/N)" J ZI$ 

560 IF ZI$=" 丫 " THEN 300 ELSE 200 
1000 REfl 

1010 PRINT C$(SU) 

1020 ZI$=INKEY$：IF ZI$=" M THEN 1020 
1030 IF ZI$="S" THEN G=1 ： G0T0 1060 
1040 IF ZI$="T" THEN G=2 ： G0T0 1060 
1050 IF ZI$=".n" THEN G=3 ELSE G=0 
1060 PRINT 11 => ";G$(G); 

1070 IF SU=1 THEN INPUT ""jOYjOn ： IF OY< 
1 THEN 1060 ELSE IF 0H<1 THEN 1060 
10 フ 5 IF SU=1 THEN IF 0f1>12 THEN 1060 EL 
SE OY=OY+K(G)：GOTO 1090 
1080 INPUT ""jBYjBrijBD ： IF BY< 1 THEN 106 
0 ELSE IF BI1<1 THEN 1060 ELSE IF B 
n>12 THEN 1060 

1085 IF BD<1 THEN 1060 ELSE IF BD>31 TH 
EN 1060 ELSE BY=BY+KCG) 

1090 RETURN 
1200 REfl 

1210 U=NE-1:NI=U 木 365 十 INT(U/4)-INT(U/100 
； +INT(U/400) 

1220 RESTORE 1270：FOR 1=1 TO TK：READ X ： 
NI=NI+X：NEXT I 

1230 IF NE MOD 4>0 THEN 1250 ELSE IF NE 
MOD 100=0 THEN IF NE MOD 400>0 TH 
EN 1250 

1240 IF TK>2 THEN NI=NI 十 1 
1250 RETURN 
1260 REM 

1270 DATA0 ， 31 ， 28, 31 ,30 ， 31 ,30, 31 ， 31 ,30，3 
i ， 30，31 
1300 REfl 

1320 FOR 1=0 TO TN: 丫 =2.5 木 SIN((A 十 
0)*5 ： DRAU(I*3,16-Y)：NEXT I 
1330 RETURN 
1400 REM 

1410 IF BG=0 THEN ZI$=" M ELSE ZI$=G$(BG 


1420 Uf1$=LEFT$(ZI$ ， 1) 十 HID$(STR$(BY-K(BG 
)) ， 2) 十 , ， "十 RIGHT$(STR$(BH) ， 2) 十 " _ 
RE" 

1430 LPRINT CHR$(28);CHR$(3 フ ）： LPRINT "P 
fl ； Un$：LPRINT "H5":LPRINT "Z2,6" 

1440 X=12 ： Y=-3.6：LPRINT J, S2 , '： LPRINT "n" 

: X ； .:,0_，：LPRINT W; Y 木 2 
1450 LPRINT M Sr'? LPRINT •TIj 11 ； Y*2 ： LPRINT 
M P" ； N$(0) 

1460 LPRINT "!1" ； X*2 ； " j m ； LPRINT :, P"? 

CN$ 

1470 LPRINT !, O0j- 50"：LPRINT : 'D0 ， 25 ， 0，-2 
5"：FOR 1=1 TO TN:X=I 木 3:Y=l:IF I HO 
D 5=0 THEN 丫 =2 

1480 LPRINT "D" ； X ； % " ； Y ； % " ； X ； 11 j !, ； -V：NE 
XT I : LPRINT n D";X;" ， 0 ， 0 ， 0" 

1430 LPRINT !, f12 J 24 ,, ：LPRINT P P 十 "： LPRINT 
••(12,- 25":LPRINT "P-" 

1500 FOR 1=5 TO TN STEP 5 ： X=(lPR 
INT "IT ;X; h ， _5":LPRINT ^P" ； I：NEXT 

I . 

1510 J=1 : A=P ： U=23：GOSUB 1600 ： J=2 ： A=S ： U= 
28iGOSUB 1600 ： 1=3 ： A=H ： U=33 ： GOSUB 1 
600 

1520 FOR 1=1 TO 3 ； V=-(1*7.2+25)：LPRINT 
M n55, "； r+0.8：LPRINT ^J "； I：LPRINT 11 
D ， 65," ； V+0.8 

1530 LPRINT M n68j M ； Y：LPRINT ^P" ； S$(I) : N 
EXT I 

1540 LPRINT CHR$(28) ； CHRSC46) ； CHR$(27 )； 
"J0 M 

1550 RETURN 
1600 REM 

1610 Y=SIN(A/U*360)*20：LPRINT "n0 ， " ； Y:L 
PRINT u J"；J * 

1620 FOR 1=1 TO TN ： X=I*3 ： Y=SINC(A+I 

360)*20 ： LPRINT ”D ， " ； X; ； Y: NEXT I 
1630 RETURN 
2000 REfl 

2010 RESTORE 2100： FOR 1=0 TO 3：READ G^( 
I),S$(I),K(I〉：NEXT I 
2020 C$C0)="TnNJYOBI " 

2030 C$C1)= M SHIRABETAI TSUKI" 

2040 [1D$ 二"木木 BIORHYTHfl 末末 " 
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2050 RETURN 
2100 REfl 

2110 DATA SEIREKI，，0 
2120 DATASHY 叫 1325 
2130 DATATAISH 丫 0，KANJ 丫0,1311 
2140 DATAflEI JI，CHISEI，186 フ 


操作 



手順 

キー操作 

表 示 

プロッタに出力す 



* 氺 BIORHYTHM 氺氺 

るかどうか-> 



Printer (Y/N) : 


1 

Y or N 

NAME : 

名前を入力-> 


TANAKA 』 

NAME : TANAKA 


2 


S/T/M バ0-9) 




TANJY0BI 

誕生日を入力- ► 


(S) 32 ^ 

= >SHY0WA 32 



5 成 

?5 


3 

17 或 

?17 




SHIRABETAI TSUKI 

調べたい年月を 

A 

囹58 (^) 

= >SHY0WA 58 

入力-^ 

4 

8 成 

?8 

プロッタに HH ナ I - > 




/ロノ/ Vw レノ 

プロッタに出力. 



氺氺巳 I0RHYTHM 氺氺 1983 

次の月を調べるか 

5 


9 

どうかをきいて 



(Y/N) 

くる-> 





6 

Y or N 



メモリー内容 

A 

巳 D 

巳 M 

B Y 
G $() 
M D $ 

N A $ 

N E 

月の最初のバイオリズムの状態 
j 誕生年月日 
年号 

、、氺氺 BIORHYTHM * 氺〃 

名前 
年数 

Ml 

0 M 

0 Y 

PS 

W 

X 

Y 

Z 1 $ 

日数 

} 調べる月，年 

プリンタ使用有無 
バイオリズムの周期 

j •グラフの X ， Y 座標 

一文字入力および年号 
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m 用グラフソフト 


^ プロッタプリンタを用いてグラフを書くプログラムです.データは最大12 

個まで，まだデータの値は，次の範囲に限定されます. 

I データの値 I SIE 90 

4色のカラープロッタの特長を生かし，棒，帯，折れ線グラフをきれいに 
描きます. 


使い方 


プログラムを スタートさせると，まず メニューが 表示されます.最初はデ ー 
夕の人力をしますので， （ D を入力します. 

データは，上に示した範囲の数で，負の数でもかまいません.また，12個目 
の データを入力すると，自動的に メニュー 表示に戻ります.途中で入力をやめ 
るときは g キーを押します. 

囹は，データの修正です.入力したデータが先頭から表示されますので，修 
正する個所で正しい数を入力して下さい.逆キーを押すと次のデータになり， 

1 SHIFT 1キーと_キーを同時に押すと前のデータに戻ります. 

はグラフを書くルーチンです. [ E を押しますと，1から4までのグラフの 
種類が表示されます（ただし，4は最初のメニューに戻ります）. 

1は，带グラフで，これは全体を1〇〇 %として，それぞれのデータの割合を 
示します.見やすいように，となりのデータとは違った色で出力されます.ま 
たこのグラフは，データに負の数があった場合，出力されません. 

2は棒グラフです.スケールは，入力されたデータに応じてコンピュータが 
•設定してくれます.正の値は緑，負の値は赤で出力されます. 

3は，折れ線グラフです. 

また3を入力すると， “Over Previous Graph ?’’ときいてきますが， Y を押 
せば，すぐ前に棒グラフが書いてある場合は，それに重ねてグラフを書きます. 
また別にグラフを書きたい場合や，すぐ前に棒グラフが書いていない場合は， 

N を入力します.スケールを作り，単独に折れ線グラフを書きます. 

どのグラフも，書き終えると，最初のメニューに戻ります.それからプログ 
ラムをスタートさせると，データがクリアされるので，注意して下さい. 

区]は， END で，プログラムの実行が終わります. 

国は，入力したデータを，プロッタに出力します.また合計も出ます. 
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プリンアウト例 


Print Data 

D(l)= 1200 
D(2)= 4500 
D(3)= 8383 
D(4)= 9102 
D(5)= フフ 01 
D(6)= 1532 
D(7)= 4562 
D(8)= 18020 


Total: 55000 



プログラ厶 


10 CLEAR 

20 CLS : PRINT " - DATA - " 


30 PR I NT TAB (2) ； "1：I npu t 2: Correct 1 ' ， T 
AB(2); M 3：Graph 4 ： END"jTAB<2 )； "5：Pr 
Tnt Da ta "； 

40 K = UALCINKEV$):IF K <1 THEN 40 ELSE 
IF K >5 THEN 40 


50 BEEP : GOTO K 木 100 
100 CLS : ERASE D：DIM 
110 LOCATE 2,3:PRINT 
120 LOCATE 6 ， 0:PRINT 
130 LOCATE 0)0：PRINT 


DC13) ： Z=1 
" く RETURN 〉 : END "； 

M ?i • 

"DC" ； 2；INPU 

















































































r 

140 IF AB$<>"" THEN D(Z)=UAL(_); IF Z 
く 12 THEN Z=2+1 ： G0T0120 ELSE 20 EL 
SE Z=Z-1 ： G0T0 20 
200 IF Z<1 THEN 20 

210 CLS : I=1：PRINT TABC46)；"：Shift RET 
URN" 5 TAB(6)；RETURN 
220 LOCATE 4 > 2：PRINT CHR$(228) ； CHR$(22 
9)：LOCATE 4,3；PRINT CHR$(230);CHR 多 
； 231 )； 

230 DRAUCC32j23)-(47,23) -(47,24)-(32,2 
4 パし OCATE 0 ， 0:PRINT "D ("； 

240 LOCATE 2) 0 ： PRINT I ；'*) = "； D<I )；" 

*'： LOCATE 1 SPRINT " 

•I 

250 LOCATE し 1 :INPUT K$ = INKEY$:IF 
THEN D( ； I)=UA し （ AB 多） 

260 IF K$=CHR$(24) THEN 1=1-1：IF I<1 T 
HEN 20 ELSE 240 

270 IF K$=CHR$C13) THEN 1=1+1：IF I>Z T 
HEN 20 ELSE 240 

280 IF K$=CHR$(23) THEN 1=1+1：IF I>2 T 
HEN 20 ELSE 240 

290 IF K$="" THEN 1=1+1：IF I>Z THEN 20 
ELSE 240 

300 IF Z<1 THEN 20 ELSE CLS 
310 PRINT TABC5) ； "1 ： BandT,TABC5) ； M 2：Ba 
〆• 

320 PRINT TABC5) ； M 3 ： Line",TAB(5) ； "4：HE 
NU "； 

330 K=UAL(INKEY$)：IF K<1 THEN 330 ELSE 
IF K>4 THEN 330 
340 BEEP : GOTO K 木 1000 
400 LPRINT CHR$(28) ； CHR$(46)：END 
500 IF 2<1 THEN 20 ELSE GOSUB 6000：LPR 
INT "Ql" ； U=0 

510 LPRINT "M33 ， 0"，"PPrint Data" 

520 FOR I 二 - 1 TO Z 

530 LPRINT "fl "； 90-4^1 ； " , 0" , "PDC " ； I1ID$C 
STR$(I)>2) ； ")=" ； D(I) 

540 U=U+D(I)；NEXT I 

550 LPRINT "n" ； 30-U4-5 ； M , 0" j "PTotal=" 
： U：GOSUB 6000：GOTO 20 
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1000 GOSUB 6000:A 二 0 

1010 FOR 1 =1 TO Z：IF D(I) く 0 THEN ERASE 
I ； GOTO 20 ELSE ㈣ 十 D( I): NEXT I 
1020 IF A<=0 THEN 20 

1030 LPRINT "05 ， 0 "， "Xl ， 8, 10" ， "ri85,1"，"P 
C";CHR$C37)；" 

1040 FOR \ = \m TO 0 STEP -10; LPRINT "fl" 
: -4+8*1/10 ； % 1% "P "； I ： NEXT I 
1050 B=0 ： C=0 
1060 FOR 1=1 TQ Z 
1070 C 二 ROUND く P く I)/A 末 80 十 ! ：， _2) 

1080 LPRINT " J" ： I MOD W ; B; ，，， -3, " ； C; 

,-23" 

1090 LPRINT "G"；I MOD 2+1 ； % " ； C-B； % -20 
パ , ； （I MOP 3)/4 十 .5 
1100 B=C ： NE>^T I 
1110 LPRINT ”H30";GOTO 20 
2000 GOSUB 6000:GOSUB 7000:GOSUB 8000 
2010 FOR 1=1 TQ Z 
2020 IF D(I)>=0 THEI^j J=2 ELSE J=3 
2030 LPRINT "J";J 

2040 LPRINT 6-8*1; ", " ,'ROUNDCD 

(I)/A 木 30/N 十 Oj — 2)J", " ； -8*1 
2050 LPRINT "fT'JOJ" j" ； 6-8*1j"G1 j" ；ROUND 
(D(I)/A 氺 30/N ， -?); " ， - 6" 

2060 NEXT I 

2070 LPRINT " 门 0 ， " ； _8 木 （ Z 十 l):GOTO 20 
3000 IF Z<2 TME；H 20 ELSE CLS : PRINT M 〇リ 
er previous sra^ph?") TABC8) ； "Y/N" 
3010 K$=INKEY$：IF K$= " 丫 " THEN BEEP ；GOT 
0 3080 E：USE IF K$<>"N" THEN 3010 E 
し SE BEEP 
3020 GOSUB 6000 
3030 GOSUB フ 000= GOSUB 8000 
3040 LPRINT "Ul">"J0" 

3050 FOR 1=1 TO Z 

3060 F=3-8*I：IF I HOD 2 コ 1 THEN LPRINT M 
D0 ， " ； F; " ， 30， M ;F ELSE LPRINT ”D30，” 

: F ； 11 ， 0，" ;F 

3070 NEXT 11 し PRINT V し 0" , 0* 1 

3080 S=S+1 ： IF S>3 Th|EN S=0 
3090 T=T+.25：IF T>3.9 THEN T=0 
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3100 IF T<2 THEN LPf^INT "B1.6" ELSE LPR 
INT "B6.4" 

3110 LPRINT "J";S ， "U";T 

3120 G 二 ROUND<；DU 木 30/N 十 0, -2): H=-5 

3130 FOR 1=2 TO Z 

3140 U=ROUND く DU )/A*90/N+Oj - 2 ) ： U=3-8 木 I 
3150 LPRINT "P";G; " ， " ； 出 " ， " ； U; "， 

3160 G=U ： H=U 
3170 NEXT I 

3180 LPRINT "B3.2"j" n0 5 " ； -8*CZ+1)：GOTO 
20 

4000 GOTO 20 

6000 し PRINT CHR$(28 〉； CHR$(3 フ）， •’ 00 ， 0 ••，"J 
0", "L0" j "SI,% "qa" j "Y0" ， "B3,2% "H20 

It 

6010 S=0 ： T=0：RETURN 
7000 Y=-9E99 ： B=9E99 
7010 FOR 1=1 TO Z 
フ 020 IF D(D>Y THEN Y=D(I) 

フ 030 IF D(IXB THEN B=D(I) 

7040 NEXT I 

フ 050 IF 丫 >=0 THE；N D(0)=Y ELSE D(0)=0 
フ 060 IF B>0 THEN DC?+1)=0 ELSE D(Z+1)=B 
7070 RETURN 

8000 IF S6NDC0)^SGNDCZ+1 )<=0 THEN f1=ABS 
(D(0)_D く Z+l)) E；LSE f1=DC0 )： IF II く 0 T 
HEN n=ABSDC2+i> 

8010 IF n=<0 THEN 22 ELSE R=INTLGTn ： A=1 
0^R 

8020 IF A*INt<n/A)*.75<n THEN 和 A 末 ，5 
8030 D= し EN(SWAm2.4 十 5 
8040 IF SGND く 0> 木 SGND(Z 十 1〉<0 THEN N^INTC 
n/A) 十 2 ELSE N=INTCn/A)+l 
8050 C=ABSINTCDC0)/^)+SGND(0) 

8060 FOR I=^N TQ 0 STEP -1：IF 00 THEN 0 
=1 木 90/N 

8070 C=C-1：NEXT I 

8080 し PRINT "D0> 0> 90j 0 H >"Q1" : U=18/N ： U=0 
8090 U=U+5：IF U*U<18 THEN 8090 
8100 IF D(0) く =0 THEM 8150 ELSE X=0 
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8110 K=ROUND<：>^ j -2) ： UPRI NT "D" ; K;" ， 2, ； K 

； " ， - 2" 

8120 LPRINT "fT'JK ； % " ； Dj"P" ； ROUND(CX-O) 

木 A 木 N/90 ， R — 

8130 LPRINT "U" ， "D";K; " ， 0 ， _’ ； K; " ， " ； -Z 木 8 

-2, u し十 14 木 U 

8140 IF X く 30 TH^N 8110 

8150 LPRINT "DS0 ， 2,30 ， _2" ， "1130 ， "P"; 

ROUND(C90-O)*A*N/90,R-2) 

8160 IF DCZ+U>=0 THEN 8220 ELSE X ， 0-U* 
U 

8170 K=R0UND^ J -2) ； L,PRINT "D"; K; •_ ， 2, •，； K 

； "，- 2" 

8180 LPRINT "fT' ； K ； ",";p,"P" ； ROUNDCCX-O) 
*A^N/90jRt-2) 

8190 LPRINT " し厂， "D” ； K; ",0 ， " ； K; • ，， " ； -Z 木 8 

—2, ■• し 0 n :^=X—U 木 U 

8200 IF X>0 THE：H 8170 
8210 LPRINT "D0 ， 2 ， 0 ， -2" ， "[10 ， " ； P ， "P'，；ROU 
ND(-0 紹州 /30 ， R - 2) 

8220 LPRINT "P0 ， 0 ， 0 ， " 卜 8 木 Z-2; " ， 30 ， ； -8 木 

Z - 2; M f1 0 ， 0 •' 

3230 RETURN 


操作 


Q ] データの 入力 


入力の中断- 

(12 まで入力すると 
メニューへ戻る） 
データの訂正 
データが終わると 

メニユ—- 


囹グラフ作成 


帯グラフがプロッ 

夕に出力- 

棒グラフがプロッ 

夕に出力- 

前の棒グラフに折 
れ線グラフを重ね 
る力- 

折れ線グラフをプ 
ロッタに出力- 

固データ 出力 
データをプロッタ 

に出力- 

® 実行を終了 


手順 

キー 操作 

表示 


1 SHIFT I 

- DATa - 

1: Input 2 : Correct 

3 : Graph 4 : End 

5 : Print Data 

1 

m 

D( 1)= 

く RETURN〉 ： END 

2 

2112 逆 

D( 2)= 

3 

通 


4 

1200 ^1 

D(1) = 1200 
? 

▲ Shift RETURN ( 前のデータ） 

▼ RETURN ( 次のデータ） 

5 

[3] 

1 : Band ( 帯グラフ） 

2: Bar ( 棒グラフ） 

3 : Line ( 折れ線グラフ） 

4 : MENU ( メニュー） 

6 

:……" E 

……… © 

: .(H 

Y.or N 

( 出力後最初のメニューへ） 

( 出力後最初のメニューへ） 

Over Previous Graph ? 

Y/N 

( 出力後最初のメニューへ） 

7 


( 出力後最初のメニューへ） 

8 

a 



294 

































PB -700 活用法 


巻末資料編 



尸 B- 700命令一覧_ 


d 賓算記号) 


m 算術演算子 


名称 

一般の使い方 

使い方 

意 味 

計算の優先順位 

ぺき算 

JC y 

XAY 

X の Y 乗 

1 

かけ算 

xXy 

X*Y 

X と Y を掛ける 

2 

わり算 

x^ry 

X/Y 

X を Y で割る 

2 

剰余 

x — y=z … 

X MOD Y 

X+Y の余り 

3 

たし算 

x+y 

X+Y 

X と Y を足す 

4 

ひき算 

x~y 

X-Y 

X から Y を引く 

4 

代入 

x = y ~\~ 5 

X=Y + 5 

X に Y+ 5 を代入 

1 


m 関係演算子（条件式) 






一般の使い方 

使い方 

意 味 



x=y 

X=Y 

X と Y が等しい 




x^y 

XOY , XXY 

X と Y が等しくない 




x<y 

X<Y 

X は Y より小さい 




x>y 

X>Y 

X は Y より大きい 




x‘y 

X <= Y , X =< 丫 

X は Y より小さいか等しい 



x^y 

X >= Y , X=>Y 

X は Y より大きいか等しい 



鲁関係演算子は IF 文においてのみ有効 

争数値どうしは定数，変数，式が，文字どうしは定数と変数が 
比較できる. 


国文字式演算子 

+……文字列は+により連結することができる. 

(5# 殊文字） 


一般の使い方 

使い方 

意 味 

jcX 10 y 

X E Y 

指数部置数，10の Y 乗 


參演算結果が 10 1 G 以上または 1( T 3 未満の場合，_動的に指数表示となる. 
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③値関数〕 


名 称 

一般の使い方 

コマンド使用例 

意 味， 

注意 

三角関数 

sin x 

SIN X 

X の正弦 sinX を与える(一5400 < X < 5400) 


cos X 

COS X 

X の余弦 cosX を与える （ 一5400 く X く 5400) 


tan x 

TAN X 

X の正接 tanX を与える（-540 0< X <5400) 

逆三角関数 

sin -1 x 

ASN X 

逆正弦 sin — 啖を与える (1 X 1^1) 


cos — 1 x 

ACS X 

逆余弦 cos _1 X を与える （| X | S 1 ) 


tan— 1 x 

ATN X 

逆正接 tan— ] X を与える (| X | く10 1 。。) 

対数関数 

log X 

LGT X 

logioX (常用対数） （ X >0) 


In x 

LOG X 

logeX (自然対数） （ X >0) 

指数関数 

e x 

EXP X 

XAY 

e x ( X ^230) 

X の Y 乗計算 


平方根 

/"x 

SQR X 

平方根を与える （ X 20) 

絶対値化 

Ixl 

ABS X 

X の絶対値を得る 


整数化 


INT X 

X を越えない最大の整数を与え 
る. 

〔例〕 

INT 1.2 — 1 

INT —1.2 — - 2 

整数部除去 


FRAC X 

小数点以下の数値のみ取り出す. 
絶対値表示ではないので土の符 
号はつく. 

円周率 

7T 

PI 

円周率の概数を得る.与えられ 
る PI の値は11桁で 

77*= 3. 1415926536 

乱数 


RND 

OCRNDC 1の擬似乱数を発 
生.与えられる乱数は10桁. 

符号化 


SGN X 

引数の符号を調べ 
X < 0 なら一 1 
X =0 なら 0 

X >0 なら1 

る 

を得る 

四捨五入 


ROUND ( X ， Y ) 

X を10の Y 乗の位で四捨五入す 
る. Y <100 
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③:字関致) 


用 途 

コマンド 

使用例 

使用例の意味 

先頭1文字の 
10 進コー ドを 
得る 

ASC 

PRINT ASC 

( " E ”） 

キャラクター E の 10 進コードを表示す 

る. 

キャラクター 

コードの1文 

字を得る 

CHR$ 

PRINT 〇 HR $ 

(69) 

キャラクターコード69の文字 E を表示 

する. 

文字列の数字 
を数値に変換 

VAL 

A = VAL ( X $) 

文字変数 X$ に記憶されている数字の 
文字列を数値に変換. 

数値を文字列 
に変換 

STR$ 

C $ = STR $( X ) 

数値変数 X に記憶されている数値を数 
字の文字列に変換. 

文字列の左か 
ら指定文字数 
分を取り出す 

LEFTS 

C $= し EFT $ 
( X $,3) 

X$ に記憶されている文字列の左から 

3文字を取り出し C $ に代入. 

文字列の右か 
ら指定文字数 
分を取り出す 

RIGHTS 

C $= RIGHT $ 

( X $,3) 

X$ に記憶されている文字列の右から 

3文字を取り出し C $ に代入. 

文字を指定し 
た数だけ取り 

出す 

MID $ 

C $ = MID $( X $, 
3/5) 

X$ に記憶されている文字列の左から 

3番目より5文字を取り出し C $ に代 

入. 

文字列の文字 
数を求める 

LEN 

A = LEN ( X $) 

X$ に記憶されている文字列の文字数 
を A に代入. 

キーボードか 
らの 1 文字入力 

INKEY$ 

A $= INKEY $ 

INNEY $ を実行したとき押されている 
キーがあれば A $へ代入する.代入で 
きるのは1文字. 


G 表示用関数) 


用 途 

コマンド 

使用例 

使用例の意味 

画面上のドット 
が点燈している 
か否かを与える 

POINT 

P 0 INT ( 10,20) 

画面の座標 （10, 20) にドットが点燈 
しているかどうかをみる•点燈は 1 ， 
点燈していない場合は0を与える. 

指定された桁 
数だけカーソ 
ルを移動する 

TAB 

PRINT TAB (10) 

画面の右方向 10 桁目までスペースを出 
力する. 

表示形式を指 
定する 

USING 

PRINT USING 

；A 

数値変数 A に記憶されている数値を 
、、林##.林林" のフォーマットで 表示 

する. 
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(マニュアル•コマンド） 


用 途 

コマンド 

使用例 

使用例の意味 

ブログラムの 
実行再開 

CONT 

CONT 

STOP 文もしくは鑑キーによって停 
止したブログラムの実行を再開する. 

ブログラムの 
削除 

DELETE 

DELETE 50 

50 行を削除する. 

DELETE 30 - 

30 行以後を削除する. 

DELETE -1Q0 

100 行以前を削除する. 

DELETE 

150-200 

150 行から 200 行までを削除する. 

ブログラムの 
修正 

EDIT 

EDIT 

最初の行を表示して EDIT モードにす 
る. 

EDIT 30 

30 行を表示して EDIT モードにする. 

プログラムの 

リスト 

LIST 

LIST 

現在指定されているブログラムエリア 
のブログラムを先頭行から表示する. 

LIST 50 

50 行を表示する. 

LIST 30- 

30 行以後を表示する. 

LIST —100 

100 行以前を表示する. 

LIST 

150-200 

150 行から 200 行までを表示する. 

し 1ST A しし 

全エリアのブログラムを表示する. 

LIST V 

登録済変数名を表示する. 

ブログラムの 
印字 

LLIST 

LLIST 

現在指定されているブログラムエリア 
のブログラムを印字する. 

LLIST 50 

50 行を印字する. 

LLIST 30 - 

30 行以後を印字する. 

LLIST -100 

100 行以前を印字する. 

LLIST 

150-200 

150 行から 200 行までを印字する. 

LLIST A しし 

全ブログラムエリアのブログラムを印字する. 

LLIST V 

登録済変数名を印字する. 

カセツトから 
ブログラムを 
読み込む 

LOAD 

LOAD 

現在指定されているブログラムエリアに，内部 
コード方式のブログラムを読み込む. 

LOAD ALL 

全ブログラムエリアに内部コード方式 
のブログラムを読み込む. 
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用 途 

コマンド 

使用例 

使用例の意味 

カ セツ トから 
ブログラムを 
読み込む 

LOAD 

し OAD，A 

現在指定されているブログラムエリアに，アス 
キーコード形式のブログラムを読み込む. 

し OAD，M 

現在指定されているブログラムエリア 
のブログラムとアスキー コー ド形式の 
ブログラムを混合する. 

LOAD U A 巳〇” 

LOAD ALL 

" CASIO ” 

LOAD 

" TEST ”, A 

LOAD 

" TEXT”，M 

指定ファイル名のブログラムに対して 
上記書式と同様の動作を行なう. 

ブログラムの 
消去 

NEW 

NEW 

現在指定されているブログラムエリア 
のブログラムを消去する. 

NEW ALL 

全 RAM を消去して初期状態に設定す 
る. 

プログラムの 

保護 

PASS 

PASS ” KEY ” 

VV KEY^ という名でパスワードを設定 
する. 

ブログラムエ 
リアの指定 

PROG 

PROG 2 

ブログラムエリア P 2を指定する. 

ブログラムの 
実行開始 

RUN 

RUN 

現在指定されているブログラムエリア 
の先頭から実行を開始する. 

RUN 100 

100行目からブログラムを実行開始する. 

カセツトにブ 
ログラムを書 
き込む 

SAVE 

SAVE 

現在指定されているブログラムエリアのプ 
ログラムを内部コード形式で書き込む. 

SAVE A しし 

全プログラムのブログラムを内部コー 
ド形式で書き込む. 

SAVE , A 

現在指定されているブログラムエリアのブログ 
ラムをアスキーコード形式で書き込む. 

SAVE 巳〇” 

SAVE A しし 

" CASIO ” 

SAVE 

" TEST”，A 

プログラムにファイル名をつけて上記 
書式と同様の動作を行う. 

ブログラムの 
使用状態表示 

SYSTEM 

SYSTEM 

ブログラム エリアの 使用状態，残り 
Byte 数，設定 ANGLE を表示する. 
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用 途 

コマンド 

使用例 

使用例の意味 

カセツトのブ 
ログラムのチ 
ヱツク 

VERIFY 

VERIFY 

最初に出現したブログラムファイルの 
パリティチェックを行う. 

VERIFY " ABO ” 

指定ファイル名のブログラムに対して 
上記書式と同様の動作を行う. 


(7° ログラム•コマンり 


※ 印のついたコマンドはマニュアルでも使えます . 


用 途 

コマンド 

使用例 

使用例の意味 

角度単位指定# 

ANGLE 

ANG し E 0 

角度単位を度(テグリー)に指定. 

ANG し E 1 

角度単位をラジアンに指定. 

ANGLE 2 

角度単位をグラジアンに指定 

ブザー音を出 

力* 

BEEP 

BEEP 

BEEP 0と同じ. 

BEEP 0 

ブザー音を発生（ブ)，1回. 

BEEP 1 

ブザー音を発生（ビ)，1回. 

ブログラムを 

読み込み実行* 

CHAIN 

CHAIN 

最初に出現した PF B を LOAD し実行 
する. 

CHAIN 

« XYZ ” 

指定ファイル名のブログラムに対し上 
記と同様に実行する. 

変数の消去# 

CLEAR 

CLEAR 

全ての変数をクリアする. 

表示の消去 

CLS 

G し S 

表示を全てクリアし，ホーム位置に力 
ーソルを移す. 

データの格納 * 

DATA 

DATA 1,2, 3 

READ 文で参照するデータを格納する. 

配列の宣言※ 

DIM 

DIM A (3) 

1次元単精度数値配列を宣言する. 

DIM B (2,3) 

2次元単精度数値配列を宣言する. 

DIM 〇! (4) 

1次元半精度数値配列を宣言する. 

DIM D !(3,4) 

2次元半精度数値配列を宣言する. 

DIM G $(2)*3 

1次元文字配列を宣言し文字長3を指 
定する. 

DIM H $(4,5)*6 

2次元文字配列を宣言し文字長3を指 
定する. 

点と直線を描 
< 

DRAW 

DRAW (0，0) 

座標（〇， 0) に点を描く. 

DRAW 

(1，0) - (5,10) 

座標 （ 1， 0) から （ 5， 10) に線を描く. 

点と直線を消 
す 

DRAWC 

DRAWC (0,0) 

座標（0， 0) の点を消す. 

DRAWC 

(1,0)-(5,10) 

座標 （1, 0) から（5， 10) の線を消す. 
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用 途 

コマンド 

使用例 

使用例の意味 

ブログラムの 

実行終了 

END 

END 

ブログラムの実行を終了する. 

配列名の削除 a 

ERASE 

ERASE A 

A という登 配列変数を削除する. 

ループ 

(繰り返し） 

FOR 

TO 

STEP 

NEXT 

FOR 1 = 5 

TO 20 

STEP 0.5 

NEXT 1 

FOR と NEXT に囲まれた処理を，変 
数 I が 5 から始まり 1 回に 0.5 ずつ足し 
て 20 を越えない範囲で繰り返し実行す 
る. 

カセツトから 
変数データを 
読み込む# 

GET 

GET A 

最初に出現した変数データを読み込む. 

GET 

" MAX ” B 

VV MAX" というフアイル名の変数デー 
夕を読み込む. 

サブルーチン 
へ分岐 

GOSUB 

GOSUB 100 

100 行のサブルーチンへ分岐. 

GOSUB 

PROG 3 

プログラムエリア P 3のサブルーチン 
へ分岐. 

サブルーチン 
の終わり 

RETURN 

RETURN 

GOSUB 文の次の命令に復帰する. 

無条件分岐 

GOTO 

GOTO 500 

^500 行に分岐. 

GOTO 

PROG 5 

ブログラムエリア P 5 へ分岐. 

条件分岐 

IF 条件式 

THEN 〜 

ELSE 〜 

IF l >9 

THEN 50 

E し SE 80 

I が 9 より大きいなら 50 行へ分岐それ 
以外は 80 へ分岐. 

データを 
キーから入力 

INPUT 

INPUT S 

?を表示後 S に入力を待つ. 

INPUT 

K NAME ”， T $ 

NAME 表示後 T$ に入力を待つ. 

INPUT 

” NAME ”; U $ 

NAME? 表示後 U$ に入力を待つ. 

データを変数 
に代入 

LET 

LET A = 巳 

A に B を代入する. 

カーソルの位 
置指定 

LOCATE 

LOCATE 2,3 

座標（2， 3) にカーソルを指定. 

データを 表示 a 

PRINT 

PRINT C,D 

C と D の値を 1 行ごとに表示. 

PRINT C;D 

C と D の値をつづけて表示. 

データを 印字* 

LPRINT 

LPRINT 〇 ， D 

C と D の値を 1 行ごとに印字. 

し PRINT G;D 

C と D の値をつづけて印字. 

カセットに変数デ 
一夕を書き込む※ 

PUT 

PUT A 

変数 A のデータを書き込む. 

PUT ” DATA ” A 

ファイル名をつけて変数 A のデータを書き込む. 
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用途 

コマンド 

使用例 

使用例の意味 

格納されたデ 
一夕を読み込 

む 

READ 

READ X 

変数 X に DATA 文によつて格納された 
データを読み込む. 

注釈文 

REM 

REM ホ氺 * 

ブログラムに注釈を書き込む. 

DATA 文の 
実行順変更 

RESTORE 

RESTORE 

次の READ 文で最初の DATA 文から読 
み始める. 

RESTORE 100 

次の READ 文で100行目の DATA 文か 
ら読み始める. 

実行の中断 

STOP 

STOP 

実行を中断する. 

実行の追跡* 

TRON 

TRON 

ブログラムの実行状態を追跡する. 

実行の追跡の 
解除# 

TROFF 

TROFF 

トレースモードを解除する. 



エラーメッセージ 

エラーの 内容 

対 策 

BS error 

(Bad Subscript ) 

① 配列変数の添字の値が負，ま 
たは256以上ある. 

例） DIM A(256) 

② 指定数値が引数範囲を外れて 
いる. 

例） POINT コマンドの範囲 
は 0SXS159, 0 SYS 31 
だが，この範囲を外れている. 

① 添字の値を規定範囲内にする. 
添字が変数の場合は関連の個 
所を調べる. 

② 引数範囲内に指定変更する. 

BV error 

(Buffer oVerflow) 

①入出カバッファがオーバーフ 

ローした. 

①演算，プログラムの1文とも 

79文字以内に収める. 

DA error 

(read without 

DAta) 

①読むべきデータがないのに 

READ 文及び GET が実行さ 

れた. 

① READ 文と DATA 文の関係を 
確認する.変数に代入すべき 
データを文中に作る. 

DD error 

(Duplicate 

Definition) 

①同一配列名で添字の異なるも 
のを二重に定義した. 

例） DIM 文の配列変数宣言 
でエラーとなるのは…… 

DIM A(1) ， A(2,3) 

DIM A!(1) ， A!(2,3) 

DIM A$(l), A$(2,3) 

DIM A$(1)*20 ， 

A$(2,3)*20 

DIM A$(1)*20 ， 
A$(2,3)*20 

①エラーが発生した行の変数を 
調べ、同一配列名の添字を点 
検する. 

添字の異なっているものがあ 
ればどちらか一方の配列名を 
変更し，プログラムの再構成 
を行なう. 
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エラーメッセージ 

エラーの 内容 

対 策 

FC error 

(illegal Function 
Call ) 

① マニュアルコマンドをプログ 
ラムで実行しようとした.概 
当するコマンドを次に示す. 

CONT , PASS , RUN , 

EDIT，DELETE 

② プログラムコマンドをマニュ 
アルで実行しようとした.概 
当するコマンドを次に示す. 

① プログラム中から該当するコ 
マンドを除き，再構成. 

② 行番号をつけて実行させる. 
®_ キーを押した後，最初か 

ら実行をやり直すか ， STOP 

した行がわかってレ、れば RUN 

行番号でその次の行から実行 

を再開する. 


END , LET ， REM , STOP , 
LOCATE , DRAW , DRAW 
C ， GOTO , GOSUB , 
RETURN , INPUT , DATA ， 
READ , RESTORE , 

FOR 〜 NEXT，IF 〜 THEN 
〜 ELSE 〜 

③継続できない状態で CONT コ 

マンドを使用した. 


FO error 

(next without FOr ) 

① NEXT 文に対する FOR 文が 
ない. 

①ネスティング構造を点検する 

GS error 

(return without 

GoSub ) 

① GOSUB に対応しない RETU 

RN 文があった. 

① GOSUB 文におけるネスティ 
ング構造を確認する.メイン 
ルーチンとサブルーチンを明 

確にする. 

MA error 

(MAthematical 

error ) 

①数値演算あるいは数値関数演 
算で，その演算が不定あるい 
は不能である場合. 

例）割り算で，0で割った場 

合. 

①エラーが発生した行の数式を 
確認する.関連する変数の値 
を確認する. 

NO error 

(Nesting Over 

error ) 

①ネスティングレベルが規定値 
を越えた. 

例） GOSUB 〜 RETURN 

最大12レベル 

FOR 〜 NEXT 

最大6レベル 

①ネスティング構造を確認し， 
レベル内に収める. 
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エラーメッセージ 

エラーの 内容 

対 策 

NR error 

(device Not 

Ready) 

① I/O デバイスが 正しく梭統さ 

れていない. 

例） MT が接続されていない 

①関速機器のスイッチが正しく 

ON されているか調べる.正 
確に接続されているか調べる. 

OM error 

(Out of Memory) 

① RAM メモリの容量不足が発 
生した. 

例）♦メモリ不足で配列 宣言 
をした. 

①不要なプログラムを消去する. 
拡張 RAM パックでメモリ容 

量を増やす. 

SYSTEM コマンドで残バイ 

卜 数を確認する. 

OV error 

(OVer flow error) 

①演算結果または入力数値が 
以上である. 

①エラー発生行の数式を確認す 
る. PRINT 文をプログラム 

中に挿入し，その変数の値を 
確認する. 

PR error 

(PRotected error) 

① パスワード付きのプログラム 

に対して使用できないコマン 

ドを実行しようとした.概当 
するコマンドを次に表す. 

DELETE , LIST , LLIST , 

NEW , EDIT , 

② パスワード付きプログラムに 
対して，新たな行の追加，削 
除をしようとした. 

③ 異なるパスワードを入力した. 

④ 本体と異なるパスワードのプ 
ログラムを LOAD しようとし 

た. 

①②再度パスワードを入力し， 

ロックの状態を解除してから 

実行する. 

③ 正しいパスワードを入力する. 

④ 本体のパスワードを解除して 
から LOAD する.その場合， 
LOAD したパスワードが本体 
の新たなパスワードになる. 

RW error 

(Read Write error) 

① LOAD , VERIFY コマンドを 
実行中にパリティエラーが発 
生した. 

①再度 SAVE をし直す. 

SN error 

(SyNtax error) 

① コマンドの書式に誤りがある. 

② 行番号に小数を含んだ場合. 

③ 3 次元以上の配列を宣言した 
場合. 

① EDIT でエラーが発生した行 
を呼び出し，修正する. 

② 行番号を修正する. 

③ 2 次元以内に修正する. 
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エラーメッセージ 

エラーの 内容 

対 策 

SO error 

(Stack Over flow) 

① 数値スタックが 8 レベルを越 
えた. 

② 演算子スタックが 20 レベルを 

越えた. 

③ 文字スタ ッ クが 10 レベルを越 

えた. 

①②スタックがレベル内に収ま 
るよう数式を簡略化，または 

分割する. 

③文字式を簡略化または分割し 
てスタックをレベル内に収め 

る. 

ST error 

(STring error) 

①許容文字変数長を越えた文字 
列を文字変数に代入しようと 

した. 

次に許容文字変数長を示す. 
固定文字変数 

最大 7 文字 

登録文字変数 
最大 16 文字 

文字配列変数 

指定により最大 79 文字 

①文字長の多い変数に変更する. 
代入すべき文字列の文字長を 
短かくする. 

文字列を連結する場合，注意 
が必要. 

TM error 

(Type Missmatch) 

① 代入文において左辺と右辺の 

変数型が異なる. 

② 代入時の引数型が一致しない. 

① 代入文の左辺と右辺を，数値 
変数か文字変数で統一する. 

② 数値変数には数値を，文字変 
数には文字列を代入する. 

U し error 

(Undefined Line 

number) 

① 指定された行番号がない. 

IF 〜 THEN, GOTO, 

GOSUB 

② GOTO 文， GOSUB 文で指定 

れたプログラムエリアにプロ 

グラムがない. 

① 分岐先行番号をつくるか，分 
岐先行番号の指定を変更する. 

② 分岐先のプログラムエリアを 
つくるか，分岐先を変更する. 

UV error 

(Undefined 

Variable) 

① 定義されていない変数を用い 

た. 

② DIM 文宣言なしで配列変数を 

用いた. 

① 使用する変数の初期値を確認 
する. 

② プログラムの始めに， DIM 文 

により配列を宣言する. 

VA error 

(VAnable error) 

① 41 個以上の変数を登録しよう 
とした. 

①登録変数と配列変数は合計 40 
個まで使用できる. LIST V で 
変数名を確認し， CLEAR, 
ERASE で不要のものを削除 

する. 
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* ( RET ) は，改行の機能コードとして動作します. 
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さくいん 


*ァルファべツト順* 


ABS 


248 

IF 〜 THEN 〜 ELSE 

42, 

ACS 


240 

INKEY $ 


ANGLE 

156, 

236 

INPUT 

38, 40, 

ASC 


210 

INT 


ASN 


240 

し EFT $ 


ATN 


240 

し EN 


BASIC 


30 

LET 


BEEP 


157 

LGT 


CAPS 

20, 

21 

LIST 


CONT 


130 

しし 1 ST 


CHAIN 


158 

LOAD 


CHR $ 


212 

LOCATE 


CLEAR 


160 

LOG 


C し S 

51, 

161 

し PRINT 

114, 

COS 


238 

MID $ 


DATA 

82, 

200 

MOD 

23, 25, 

DEGREE 


156 

NEW 


DELETE 


132 

NEW A しし 


DIM 

73, 

162 

PASS 


DRAW 

93, 

167 

PI 


DRAWC 

93, 

167 

POINT 

93, 109, 

E 


296 

PRINT 

38, 42, 

EDIT 


135 

PROG 


END 

43, 

170 

PUT 


ERASE 


171 

RADIAN 

156, 

EXP 


246 

READ 

82, 

FOR 〜 TO 〜 STEP/NEXT 

54, 

172 

REM 


FRAC 


252 

RESTORE 


GET 


176 

RETURN 


GOSUB 

55, 

179 

RIGHTS 


GOTO 

43, 

182 

RND 


GRADIENT 

156, 

237 

ROUND 



184 

224 

187 

250 

219 

223 

193 

243 

138 

138 

142 

194 

243 

195 

221 

296 

146 

146 

148 

258 

233 

195 

150 

199 

237 

200 

205 

200 

179 

220 

259 

256 
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RUN 

151 

SYSTEM 

50, 

154 

SAVE 

152 

TAB 

48, 

227 

SGN 

254 

TAN 


239 

SIN 

235 

TROFF 


208 

SQR 

242 

TRON 


208 

STOP 

206 

USING 

49, 

229 

STR $ 

217 

VA し 


214 



VERIFY 


155 


* 五十音順* 


アスキー.コード 

210 

キャラクター座標 


27 

一次元配列 

60 

キャラクタモードの指定 


114 

A コマンド 

118 

数値関数 


297 

H コマンド 

121 

グラジアン 

丨56, 

237 

エクスポーネント 

246 

グラフィック座標 

27, 

93 

X コマンド 

121 

グラフィックモードの指定 


114 

M コマンド 

124 

桁数表示 


64 

エラーメツセージ 

303 

固定変数 


26 

L コマンド 

122 

コマンド 


40 

演算式の記述法 

25 

コントラスト調整ボリウ厶 


17 

演算精度 

23 

コロン （ ： ） 


49 

演算の優先順位 

23 

サブ電池 


14 

円周率 

258 

サブルーチン 

55, 

179 

エンター （ ENTER ) キー 17, 

33 

三角関数 


240 

0コマンド 

121 

J コマンド 


119 

オートパワーオフ機能 

15 

〇コマンド 

118, 

125 

概要フローチャート 

90 

G コマンド 


124 

カセツトインタフェイス付 


指数関数 


246 

ミニプロッタプリンタ 

92 

四捨五入 


256 

カナ入カモード 

85 

自然対数 


243 

ヵナ文字コード表 

81 

自然対数の底 


243 

ヵナ文字入力 

84 

シフトモード 


21 

画面コントロール 

48 

ジャンプ 


42 

関係演算子 

24 

条件式 43, 

126, 

184 

逆三角関数 

240 

条件分岐 


184 

キヤピタルモード 

21 

終値 


172 

キャラクターコード 

307 

詳細 フローチャート 


90 


309 





使用バィト数 
常用対数 

初期設定 41, 

数値登録変数 
数値配列 
数値配列変数 

数値変数 26, 57, 

数値フォーマット指定 

スクウ；！：ア • ルー ト 

制御変数 
絶対値 

セミコロン （；） 41, 

増設 RAM パック 
増分 
代入 

ダイレクトモード 
TAB 関数 

ダブルクオーテーション（” ） 
単精度 24, 

注釈文 
ディグリー 

D コマンド 

ディメンション 

デバッグ 

テンキー 

登録変数 26, 

ドット 

ドットパターン 
トレースモード、 

二次元配列 
ヌルストリング 
ネステイング 


配列変数 


62 

パスコマンドの解除 


148 

パスワード 


144 

半精度 

24, 

64 

巳コマンド 

122, 

123 

編集用 キー 

22, 

135 

ファイル名 


126 

ファイルの属性 


153 

フォーマット文字列 


229 

プログラムエリア 


34 

プログラムの変更 


47 

フローチヤート 


88 

プロッタコマンド 


115 

分岐 

43, 

182 

分岐先 


179 

無条件分岐 


182 

マルチステートメント 


49 

メイン電池 


14 

メインプログラム 


179 

メインルーチン 


55 

メツセージ 


38 

文字登録変数 


27 

文字配列変数 

57, 

73 

文字変数 

57, 

190 

文字列フォーマット指定 


230 

USING 関数 


229 

ラジアン 

156, 

237 

RAM パック 


16 

乱数 


259 

リターンキー 

17, 

33 

ループ 


172 


28 

248 

70 

27 

62 

62 

189 

230 

242 

72 

248 

42 

16 

172 

32 

20 

227 

126 

64 

40 

156 

I 16 

59 

35 

31 

188 

93 

101 

208 

61 

164 

180 


310 




発行者 
片岡巌 
発行所 
技術評論社 

東京都千代田区九段南 2-4-13 
九段光ビル亍102 

TEL 03— 262—9351(代) 
振替口座東京 0 -76098 


印刷加藤文明社 
製本村上製本 


©AKIRA HASEGAWA 1983 
SIZUO SIGENO 


•監修 

渡辺茂東京大学名誉教授.都立工科 
短期大学学長.日本マイコン 
クラブ会長.著作多数. 

•執筆 

長谷川晃アオイ. エンジニアリング ㈱ 
代表取締役 

繁野鎮雄神奈川県 マイコン クラブ 

日本 マイコン クラブ神奈川支 
部代表 


昭和 58 年 8 月 25 日初版第 1 刷発行 
昭和61年2月21日初版第6刷発行 


雄 

鎮 

野 

繁 

1 , 

止 

nli 

修辺者谷印 
監渡著長検 


茂 








カシオ計算機株式会社営業本部 

東京都新宿区西新宿 2— 6 新宿住 f ビ个 
(〒丨60彳 S 03-347-48 I 1(代表） 

カシオ計算機サービスセンター 


旭川 
ネし幌 
釧路 
青森 
秋田 
盛岡 
仙台 
山形 
君!^山 
宇都宮 
前橋 
水戸 
埼玉 
千葉 
東京 
東京 
城南 
城西 
多摩 
横游 
平塚 
新渴 
長野 
甲府 
沼津 
青争岡 
港松 
豊橋 
名古屋 
岐阜 
三重 
富山 
金沢 
京都 
大阪 
奈良 
和歌山 
神戸 
岡山 
松江 
福山 
広島 
山 口 
高松 
松山 
福岡 
長崎 
熊本 
鹿児島 


0166-23-8580 
01 1-231-2343 
0154-24-8575 
0177-22-7466 
0188-63-7690 
0196-24-2502 
0222-271404 
0236 42-8018 
0249-33-5172 
0286-34-0395 
0272 -53-3000 
0292-25 6985 
0486 66 8567 
0472-43 -1751 
03 862 4141 

03 583-41 I I 

03 787-3721 

03 376 3221 
0425-23 3531 
045-211-0821 
0463-23-261 I 
0252-41 4105 
0262 28 9360 
0552 37-6371 
0559-22-8928 
0542 81-8085 
0534 64 1658 
0532-53-2515 
052-2630454 
0582-62-0145 
0592-27 5066 
0764-22-2251 
0762-37-851 I 
075-351 - I 161 
06 362*8181 
0742-24-381 I 
0734-31 7807 
078-392-4123 
0862-41-8471 
0852-25*131 I 
0849-24-2830 
082-263 -1090 
0835-22-6164 
0878-62-5240 
0899 45-2234 
092-411-2684 
0958-61-8084 
0963-670650 
0992-56-3575 


〒〇70 
〒〇60 
〒〇85 
〒〇30 
〒〇10 
〒〇20 
〒980 
〒99 U 
亍963 
亍320 
〒37丨 
〒310 
亍330 
亍280 
〒丨01 
〒106 
〒145 
〒丨60 
〒190 
亍231 
〒254 
〒950 
亍380 
亍400 
〒410 
〒420 
〒435 
亍440 
〒460 
亍500 
亍514 
亍930 
亍920 
〒600 
〒530 
亍630 
〒640 
亍650 
〒700 
〒6% 
〒720 
亍730 
亍747 
亍760 
亍790 
〒8丨2 
〒852 
〒862 
〒890 


旭川市七条通り8 丁目 
礼幌市中央区南一条西12 丁目 
釧路市光陽町 6 一 7 
胥森市勝田 2 — I 一 12 

秋田市山王 2 - I _ 40 

盛岡市本町通り 3 — 19 - 6 

仙台市一番町 2-3-32 
山形市 あこや 町 3 — 12 — 9 

福島県郡山市香久池2 — 16 - 6 

宇都宮市西大寛2— 丨 3 


橋 

市 

元総 

社 

町 

92 - 

5 

戸 

市 

中央 

1 

— 

2 

20 

宮 

市 

大成 

町 

1 - 

1 8 

1 

葉 

市 

登戸 

町 

2 - 

2 7 

6 

代田区神田 

佐久間 

町2 — 

23 

区 

六 

本木 

2 

一 

3 

6 

田 

区 

上池 

ム 

1 - 

-翁- 

6 

宿 

レ 

西新 

5 

4 

2 — 

18 

川 

市 

金帛町 

3 

— 

2 — 

25 

浜 

市 

中区弁天 

通 

り6- 

85 

塚 

市新 

宿 

1 

1 9 

6 

潟 

市 

米山 

3 

— 

1 

5 

野 

市岡 

田 

町 

30 

20 

府 

市 

城東 

2 

—— 

22 - 

II 

津 

市高 

島 

町 

8 

II 

岡 

市 

西中 

原 

1 - 

4 

35 

松 

市西 

塚 

町 

3 2 

4 


橋 

市 

魚 

町 

5 

古 

屋 

市中区栄 

4 

— 6 _ 

15 

阜 

市 

臢 

見 

町 

8 

市 

鳥居 

田丁 

1 9 

1 

山 

市白 

銀 

町 

2 

1 

沢 

市 

諸江 

町 

下 丁 93 — 

1 


京都市下京区五条通り堀川東入ル 
大阪市北区南森町 2 —丨 - 20 
奈良市西木辻町 2 0 0 — 6 2 
和歌山市九家の 丁 5 

神戸市中央区北長狭通り 4 - 4 一 18 
岡山市西古松 4 0 6 — 2 

松江市嫁島町 丨 7 3 

福山市南本庄町 2— 丨 3 0 

広島市稲荷町 4 一 I 

防府市戎町丨 一10 — 16 

高松市亀岡町 9 一 16 

松山市平和通り丨- 1 — 5 

福岡市博多区博多职南丨一 2— 15 
長崎市宝栄町 2 一 26 

熊本市健軍 4 — 丨 一 5 

鹿児島市上荒田町 30 一 18 













規格 


型 式 

PB -700 

基本計算機能 

負数，指数，カツコを含む四則計算（加減 • 乗除の優先順位判 

別機能つき ） MOD 

組込関数機能 

三角.逆三角関数（角度単位は度.ラジアン.グラジアン）， 
対数•指数関数，開平，べき乗，整数化，整数部除去，絶対値 
符号化，四捨五入，乱数，円周率 


関数桁容量 


入力範囲 

答の精度 

sin x , cos x , tan x 

| jc |<5400 (30; rrad ，6000 gra ) 

基本的に 

10桁目±1 

sin -1 x , cos~ l x 

1 相 

國 


// 

tan ' 1 jc 

W <10 ,0 ° 

ただし， tanX においては，以下の 


// 

log x , In x 

x >0 

場合は除きます. 


// 



DEG : | jc |=90(2 n -1) 



e x 

jc ^230 

RAD : U | = |(2 n - 1 ) 


// 


x^O 

GRAD : U | = 100(2 n - 1 ) 


// 



( n は整数） 



x y ( x ] y ) 

x >0 



// 


コマンド CONT , DELETE , EDIT , LIST , LUST , LOAD , NEW , 

PASS , PROG , RUN , SAVE , SYSTEM , VERIFY , ANGLE , 
BEEP , CHAIN , CLEAR , CLS , DATA , DIM , DRAW , 
DRAWC , END , ERASE , FOR - TO - STEP , NEXT , GET , 
GOSUB , GOTO , IF - THEN - ELSE , INPUT , LET , LOCATE , 

LPRINT , PRINT , PUT , READ , REM , RESTORE , 

RETURN , STOP , TROFF , TRON 

プログラム関数 ASC , CHR $, VAL , STR $, LEFTS , RIGHTS , MID $, LEN , 
INKEY $, TAB , USING , POINT , SIN , COS , TAN , ASN , 
ACS , ATN , SQR , LOG , LGT , EXP , ABS , INT , FRAC , 
SGN , ROUND , PI , RND 


計算範囲 

プログラム言語 
プログラム容量 


土1 x 10-99 〜 ±9. 999999999 xl(F 

(内部演算は仮数部12桁を使用，精度は10桁目±1 ) 

BASIC (ベーシック） 

本体実装 4 kByte ， 最大 16 kByte まで拡張可 RAM 標準 4 kByte ， 

最大 16 kByte 
ROM 約 25 kByte 


組込プログラム数最大10組 （ P 0 〜 P 9) 













スタック数 

サブルーチン 12段 

FOR - NEXT ループ 6段 

数 値 8 段 

演算子 20 段 

表示方式 

表示素子 

仮数部〗 0 桁+指数部 2 桁 

32 x 160 ドット液晶 （4 X 20 キャラクター） 

主要素子 

C-MOS LSI 他 

電 源 

単3電池4本， CR -1220 (バックアップ用）1個 使用 

消費電力 

約 10 mA 

電池寿命 

AM -3 (アルカリマンガン電池）約120時間 

SUM -3 (本体装着電池） 約80〜100時間 

オートパワーオフ 

バックアップ用（単 3 電池装着時） CR -1220 約 2 年間 
約8分 

使用温度 

大きさ•重さ 

0で〜40て 

幅 200 奥行 88 高さ 23 mm ， 重さ 315 g 

付属品 

ソフトケース， 「 PB -700 活用法」，コマンドガイド 

別 売 品 

CM -1 専用マイクロカセットテープレコーダー 

OR -4 オプション RAM (4 KB ) 

FA -10 カセツトインタフェイス付ミニプロツタプリンタ 






